项目MainTableChanged事件代码:
If MainTable.Name = "电缆仓明细" Then If Forms("电缆仓明细查询").Opened Then Dim cmb As WinForm.ComboBox cmb = forms("电缆仓明细查询").Controls("型号") cmb.ComboList = DataTables("电缆仓明细").GetComboListString("型号") cmb = forms("电缆仓明细查询").Controls("客户") cmb.ComboList = DataTables("电缆仓明细").GetComboListString("客户") end if end if
|