以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 不会写代码,请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=43857)

--  作者:zyys2813
--  发布时间:2013/12/17 15:31:00
--  [求助] 不会写代码,请教
Dim lqdw As WinForm.ComboBox = e.Form.Controls("领取单位")
lqdw.ComboList = DataTables("关联单位").GetComboListString("单位名称")

Dim lqr As WinForm.ComboBox = e.Form.Controls("领取人")
lqr.ComboList = DataTables("关联单位").GetComboListString("单位人员","[单位名称] =  ???? ")

请问红色的????部分怎么写?
就是选择了"领取单位"后 列出该"领取单位"的"领取人"名单


--  作者:Bin
--  发布时间:2013/12/17 15:35:00
--  
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 & "\' ")

--  作者:zyys2813
--  发布时间:2013/12/17 15:40:00
--  太感谢您了
太感谢您了