vault backup: 2025-07-23 13:29:35

SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md

@@ -718,4 +718,24 @@ begin
   
   fedtFShtName.Text := TempStr; // 直接赋值
 end.
+```
+
+## 多选枚举控件同步
+
+多选枚举同步，需要在属性保存下来后，通过同步按钮进行同步
+
+```delphi
+uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
+     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
+var
+  str:string;
+begin
+
+  //注释：在下面添加您的脚本代码
+  if fedtusr_mj1.Text <> '' then
+  begin  // 添加begin
+    str := chiGetFieldValueBySql('select usr_mj1 from pdmitem where itemcode = ' + QuotedStr(fedtItemCode.Text));
+    chiExecuteSqlNoResultRec('update pdmitem set usr_mj2 = ' + QuotedStr(str) + ' where itemcode = ' + QuotedStr(fedtItemCode.Text));
+  end;  // 添加end
+end.
 ```