Очередной access violation at addres
открываем в демке отчет 44
добавляем TfrxBDEQuery
select * from customers
where custNo = :PcustNo;
по нажатию на кнопку ОК
пишем
query.paramByName('cust').Value := 1;
query.Open;
Теперь запускаем отчет на просмотр получаем Ошибочку.
unit frxCustomDBRTTI;
procedure TFunctions.SetProp(Instance: TObject; ClassType: TClass;
const PropName: String; Value: Variant);
if PropName = 'VALUE' then
TfrxParamItem(Instance).Value := Value
Instance = Nil вот на этой строчке и вылетает.
Откуда мне было знать что пользователь не правильно указал параметр???
хотя бы было сообщение что не верный параметр.
а так гадай что и почему..
добавляем TfrxBDEQuery
select * from customers
where custNo = :PcustNo;
по нажатию на кнопку ОК
пишем
query.paramByName('cust').Value := 1;
query.Open;
Теперь запускаем отчет на просмотр получаем Ошибочку.
unit frxCustomDBRTTI;
procedure TFunctions.SetProp(Instance: TObject; ClassType: TClass;
const PropName: String; Value: Variant);
if PropName = 'VALUE' then
TfrxParamItem(Instance).Value := Value
Instance = Nil вот на этой строчке и вылетает.
Откуда мне было знать что пользователь не правильно указал параметр???
хотя бы было сообщение что не верный параметр.
а так гадай что и почему..
Комментарии
where custNo = :PcustNo;
по нажатию на кнопку ОК
пишем
query.paramByName('cust').Value := 1;
query.Open;
Извините, но этого я не понял, у вас в запросе параметр PcustNo, а вы присваиваете значение несуществующемцу параметру cust.