paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 11:59:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: clear field list before calling GetFieldList

Browse Source 
git-svn-id: trunk@37055 -
This commit is contained in:
blikblum 2012-04-28 11:53:48 +00:00
parent 2b436be529
commit 90d47a6dea
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/dblookup.inc
View File

@ -266,6 +266,7 @@ begin
FKeyFieldNames := FControlLink.Field.LookupKeyFields;
end else
FDataFieldNames := FControlLink.Field.FieldName;
FDataFields.Clear;
FControlLink.DataSet.GetFieldList(FDataFields, FDataFieldNames);
end;
end;
@ -289,6 +290,7 @@ begin
try
if FListLink.DataSet.Active then
begin
FKeyFields.Clear;
FListLink.DataSet.GetFieldList(ListFields, FListFieldName);
FListLink.DataSet.GetFieldList(FKeyFields, FKeyFieldNames);
if FHasLookUpField then