Dim lqdw As WinForm.ComboBox = e.Form.Controls("领取单位")
lqdw.ComboList = DataTables("关联单位").GetComboListString("单位名称")
-----以下代码不应该写在同一个地方,而是应该写在 领取单位这个ComboBox的Textchanged事件里.------
Dim lqr As WinForm.ComboBox = e.Form.Controls("领取人")
lqr.ComboList = DataTables("关联单位").GetComboListString("单位人员","[单位名称] = '" & e.Form.Controls("领取单位").Text & "' ")