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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态增加表

共有2570人关注过本帖树形打印复制链接主题：动态增加表

kaituozhe

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

动态增加表

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：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编辑过]

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/11 9:04:00 [只看该作者]

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

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

kaituozhe

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/9/11 13:12:00 [只看该作者]

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

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

大红袍

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：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

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/9/11 15:11:00 [只看该作者]

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

kaituozhe

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：2015/9/11 15:13:00 [只看该作者]

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

大红袍

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/11 15:17:00 [只看该作者]

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

kaituozhe

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2236 积分：15335 威望：0 精华：0 注册：2015/7/18 10:10:00

Post By：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 & " '"

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

大红袍

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/9/11 17:15:00 [只看该作者]

Tables("查询平台_Table1").Filter = Tables("查询平台_Table1").Filter & " and [部门编号] >= '" & e.Form.Controls("TextBox3").value & "' And [部门编号] <= '" & e.Form.Controls("TextBox4").value & "'"

下一主题 >> << 上一主题

主题：动态增加表