vault backup: 2025-05-07 20:36:34

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

@@ -191,4 +191,13 @@ end.
 
 ## 更新枚举选项
 
-`cbxusr_444` 控件的值
+`cbxusr_444` 控件的值必须等于 `cbxusr_333` 控件的值
+
+```Delphi
+uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
+     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
+
+begin
+	cbxusr_444.Text := cbxusr_333.Text;
+end.
+```