- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 列表框生成内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=100295)
-- 发布时间：2017/5/9 9:17:00
-- 列表框生成内容
\'列表框生成内容
Dim cmb As WinForm.ComboBox = e.form.Controls("cmbzz")
Dim cmbd As WinForm.ComboBox = e.form.Controls("cmbqy")
cmb.ComboList = DataTables("在建项目").GetComboListString("资质")
cmbd.ComboList = DataTables("在建项目").GetComboListString("区域")
代码写在窗口afterload中，代码无效，
类型：ComboBox 名称：cmbzz 和 cmbqy
没有邦定列
有点色帮忙看看
-- 发布时间：2017/5/9 9:30:00
--
搞定了
代码写错位置了
-- 发布时间：2017/6/4 21:49:00
--
动态筛选
Conversion from string "\'%基本操作%\'" to type \'Boolean\' is not valid.
此主题相关图片如下：360截图-24224062.jpg
combobox控件textchanged代码：
Dim lb,sx,sj As String
lb= e.Form.Controls("类别").Text
sx= e.Form.Controls("属性").Text
sj= e.Form.Controls("事件").Text
Dim tbl As Table = Tables("代码主表_Table1")
If lb = "" AndAlso sx="" AndAlso sj="" Then
tbl.Filter = ""
Else
lb = "\'%" & lb & "%\'" AndAlso sx = "\'%" & lb & "%\'" AndAlso sj = "\'%" & lb & "%\'"
tbl.Filter = lb
End If
-- 发布时间：2017/6/4 23:19:00
--
参考
http://www.foxtable.com/webhelp/scr/1058.htm