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