rtgit/RtTool
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

功能更新

Browse Source
This commit is contained in:
sgwp 2025-02-10 11:23:54 +08:00
parent 30244b7dcd
commit 119a4fb984
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Delphi10/开发档案/Dp10RepoV1/public10/design/U_cxGridCustomSet.pas
View File

@ -520,6 +520,7 @@ end;
with tv1.DataController.DataSet do // with tv1.DataController.DataSet do //
begin begin
if not client1.Locate('caption',tv1.Columns[i].Caption,[]) then Continue; if not client1.Locate('caption',tv1.Columns[i].Caption,[]) then Continue;
if tv1.Columns[i].DataBinding.Field.DataType<>ftString then Continue ;
mfieldName :=trim( client1.FieldByName('fieldName').AsString); mfieldName :=trim( client1.FieldByName('fieldName').AsString);
if locate( mfieldName, null, []) or locate( mfieldName, '', []) then if locate( mfieldName, null, []) or locate( mfieldName, '', []) then
begin begin