功能更新

2025-02-10 11:23:54 +08:00 · 2025-02-10 11:23:54 +08:00 · 119a4fb984
commit 119a4fb984
parent 30244b7dcd
1 changed files with 1 additions and 0 deletions
--- a/Delphi10/开发档案/Dp10RepoV1/public10/design/U_cxGridCustomSet.pas
+++ b/Delphi10/开发档案/Dp10RepoV1/public10/design/U_cxGridCustomSet.pas
@ -520,6 +520,7 @@ end;
        with tv1.DataController.DataSet do                //
        begin
          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);
          if locate( mfieldName, null, []) or locate( mfieldName, '', []) then
          begin