专家坐堂-窗口的tables控件获取数据疑问Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口的tables控件获取数据疑问  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28894)

--  作者：goodhi
--  发布时间：2013/2/21 17:37:00
--  窗口的tables控件获取数据疑问

Dim str As String = e.Form.Controls("ComboBox1").Value
Tables("窗口4_Table1").DataSource = DataTables("默认选项").GetComboListString("选项", "类型 = \'" & str & "\'")
帮忙看看
这个语句那里不对

--  作者：lin_hailun
--  发布时间：2013/2/21 17:41:00
--
你是不是想这样？

Dim str As String = e.Form.Controls("ComboBox1").Value
Tables("窗口4_Table1").DataSource = DataTables("默认选项")
Tables("窗口4_Table1").Filter = "类型 = \'" & str & "\'"

--  作者：狐狸爸爸
--  发布时间：2013/2/21 19:12:00
--

如果是设置列表项目：

Dim str As String = e.Form.Controls("ComboBox1").Value

Tables("窗口4_Table1").Cols("列名").ComboList = DataTables("默认选项").GetComboListString("选项", "类型 = \'" & str & "\'")