procedure TFqExlIn.qqTypeInAfterScroll(DataSet: TDataSet);
begin
GetDataSetText(DataSet);
end;
procedure GetDataSetText(DataSet: TDataSet);
var
index:Integer;
begin
for Index := 0 to DataSet.FieldCount - 1 do
begin
if ((DataSet.Fields[Index].DataType=ftString) or(DataSet.Fields[Index].DataType=ftwideString))
and (not(DataSet.Fields[Index].IsNull) or (Trim(DataSet.Fields[Index].AsString)<>'')) then
DataSet.Fields[Index].OnGetText:=fSysDM.qSysPara_DChNameGetText;
end;
end;