Ошибка в TfrxDBDataset.GetValue
В frxDBSet.pas есть функция:
function TfrxDBDataset.GetValue(Index: String): Variant;
var
i: Integer;
begin
if not FInitialized then
Open;
i := Fields.IndexOf(Index);
if i <> -1 then
Result := TField(Fields.Objects).Value
else
begin
Result := Null;
ReportRef.Errors.Add(ReportRef.CurObject + ': ' +
frxResources.Get('dbFldNotFound') + ' ' + UserName + '."' + Index + '"');
end;
При выполнени ReportRef.Errors.Add, если не находит данного поля летит
Access Violation вместо указания какого поля не хватает.
Что с этим делать?
function TfrxDBDataset.GetValue(Index: String): Variant;
var
i: Integer;
begin
if not FInitialized then
Open;
i := Fields.IndexOf(Index);
if i <> -1 then
Result := TField(Fields.Objects).Value
else
begin
Result := Null;
ReportRef.Errors.Add(ReportRef.CurObject + ': ' +
frxResources.Get('dbFldNotFound') + ' ' + UserName + '."' + Index + '"');
end;
При выполнени ReportRef.Errors.Add, если не находит данного поля летит
Access Violation вместо указания какого поля не хватает.
Что с этим делать?
Комментарии