diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
index 95ff0da1..6432c5a8 100644
--- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
+++ b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
@@ -191,4 +191,13 @@ end.
 
 ## 更新枚举选项
 
-`cbxusr_444` 控件的值
\ No newline at end of file
+`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.
+```
\ No newline at end of file