vault backup: 2025-05-20 11:12:59

This commit is contained in:
SeedList
2025-05-20 11:12:59 +08:00
parent 449766b8cf
commit 6e7d35ebc9

View File

@ -427,6 +427,8 @@ end.
`fedtusr_FBaseUnitId` 控件有值,且 `fedtusr_FPurchaseUnitId``fedtusr_FSaleUnitId``fedtusr_FSalePriceUnitId` 等控件没有选择值的情况下,将 `fedtusr_FBaseUnitId` 控件的值赋予给其他控件(仅限于 **值改变时执行**
枚举控件空值为-1从0开始计数
```Delphi
uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;