diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
index 7d0c63cd..573e92a8 100644
--- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
+++ b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
@@ -425,3 +425,27 @@ end.
 
 ## 枚举项联动
 
+
+
+```Delphi
+uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
+     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
+
+begin
+
+  //注释：在下面添加您的脚本代码
+  if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FPurchaseUnitId.Text = '') then
+    fedtusr_FPurchaseUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
+  if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FPurchasePriceUnitId.Text = '') then
+    fedtusr_FPurchasePriceUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
+  if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FSaleUnitId.Text = '') then
+    fedtusr_FSaleUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
+  if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FSalePriceUnitId.Text = '') then
+    fedtusr_FSalePriceUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
+  if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FStoreUnitID.Text = '') then
+    fedtusr_FStoreUnitID.itemindex := fedtusr_FBaseUnitId.itemindex;
+  if (fedtusr_FBaseUnitId.itemindex <> -1) and (fedtusr_FMinIssueUnitId.Text = '') then
+    fedtusr_FMinIssueUnitId.itemindex := fedtusr_FBaseUnitId.itemindex;
+end.
+
+```
\ No newline at end of file