专家坐堂-动态增加表Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态增加表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74446)

--  作者：kaituozhe
--  发布时间：2015/9/11 8:31:00
--  动态增加表

设计以下代码，想实现在组合框中输入表的名称，然后在窗口中增加需要的表。以下代码错在那里
Dim tbl As WinForm.Table
\'With e.Form.Controls("TextBox5")
tbl = e.Form.CreateTable("Table1"," \'"& e.Form.Controls("TextBox5").value &"\'", False)
tbl.SetBounds(320, 85, 950, 450)
e.Form.AddControl(tbl)
\'End With

--  作者：e-png
--  发布时间：2015/9/11 9:01:00
--

Dim tbl As WinForm.Table
\'With e.Form.Controls("TextBox5")
tbl = e.Form.CreateTable("Table1","" & e.Form.Controls("TextBox5").value & "", False)
tbl.SetBounds(320, 85, 950, 450)
e.Form.AddControl(tbl)
\'End With

试试看.

[此贴子已经被作者于2015/9/11 9:48:20编辑过]

--  作者：大红袍
--  发布时间：2015/9/11 9:04:00
--

没必要这样做，直接用DataSource更好

http://www.foxtable.com/help/topics/1909.htm

--  作者：kaituozhe
--  发布时间：2015/9/11 13:12:00
--

Tables("查询平台_Table1").DataSource = Tables("生产计划细").Filter = "[客户] = \'CS01\' And [日期] >= #09/1/2015# And [日期] <= #09/30/2015#"

执行这一句代码的时候提示，不存在名称为“查询平台_table1”的table,这是什么原因

--  作者：大红袍
--  发布时间：2015/9/11 14:52:00
--

1、你要先加入一个Table，设置成副本或者说sqlTable等；

2、写代码

Tables("查询平台_Table1").DataSource = Tables("生产计划细").DataTable

Tables("查询平台_Table1").Filter = "[客户] = \'CS01\' And [日期] >= #09/1/2015# And [日期] <= #09/30/2015#"

--  作者：kaituozhe
--  发布时间：2015/9/11 15:11:00
--
ables("查询平台_Table1").Filter = "[计划日期] >= e.Form.Controls("DateTimePicker1").value And [计划日期] <= e.Form.Controls("DateTimePicker2").value”

--  作者：kaituozhe
--  发布时间：2015/9/11 15:13:00
--
tables("查询平台_Table1").Filter = "[计划日期] >= e.Form.Controls("DateTimePicker1").value And [计划日期] <= e.Form.Controls("DateTimePicker2").value”

--  作者：大红袍
--  发布时间：2015/9/11 15:17:00
--

tables("查询平台_Table1").Filter = "[计划日期] >= #" & e.Form.Controls("DateTimePicker1").value & "# And [计划日期] <= #" & e.Form.Controls("DateTimePicker2").value & "#"

--  作者：kaituozhe
--  发布时间：2015/9/11 16:51:00
--

Tables("查询平台_Table1").DataSource = Tables( e.Form.Controls("TextBox5").value).DataTable
Tables("查询平台_Table1").Filter = "[计划日期] >= \'"&e.Form.Controls("DateTimePicker1").value & " \' And [计划日期] <= \' " & e.Form.Controls("DateTimePicker2").value & " \'"
Tables("查询平台_Table1").Filter =Tables("查询平台_Table1").Filter & "[部门编号] >= \'"&e.Form.Controls("TextBox3").value & " \' And [部门编号] <= \' " & e.Form.Controls("TextBox4").value & " \'"

上述代码在添加红字部分后，运行提示语法错误:“[部门编号]”运算符后缺少操作数。是什么意思

--  作者：大红袍
--  发布时间：2015/9/11 17:15:00
--
Tables("查询平台_Table1").Filter = Tables("查询平台_Table1").Filter & " and [部门编号] >= \'" & e.Form.Controls("TextBox3").value & "\' And [部门编号] <= \'" & e.Form.Controls("TextBox4").value & "\'"