以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]组合框  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113099)
--  作者：江南小镇
--  发布时间：2018/1/9 12:35:00
--  [求助]组合框
老师，下面代码怎样修改成用窗口表做列表项目。

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("name").Value
cmb.ComboList = DataTables("生日提醒_Table1").GetComboListString("姓名", "客户供应商 = \'" & str & "\'")

[此贴子已经被作者于2018/1/9 13:17:44编辑过]
--  作者：有点甜
--  发布时间：2018/1/9 14:41:00
--  

Dim cmb As WinForm.ComboBox = e.Sender
Dim str As String = e.Form.Controls("name").Value
Dim filter As String = Tables("生日提醒_Table1").filter
cmb.ComboList = Tables("生日提醒_Table1").DataTable.GetComboListString("姓名", "客户供应商 = \'" & str & "\' and " & iif(filter > "", filter, "1=1"))