Dim cmb As WinForm.ComboBox = e.Form.Controls("机型框")
cmb.ComboList = DataTables("通用清单").GetComboListString("适用机型")
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("机型框").Value
cmb.ComboList = DataTables("通用清单").GetComboListString("所属类别", "适用机型 = '" & str & "'")
Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("种类框").Value
cmb.ComboList = DataTables("通用清单").GetComboListString("物料描述", "所属类别 = '" & str & "'")
[此贴子已经被作者于2015/11/5 9:31:24编辑过]