From 325b563ea78a526befa5c12a574c4f5dc094dd62 Mon Sep 17 00:00:00 2001 From: SeedList Date: Wed, 7 May 2025 20:36:34 +0800 Subject: [PATCH] vault backup: 2025-05-07 20:36:34 --- SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) 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