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


  共有2566人关注过本帖树形打印复制链接

主题:动态增加表

帅哥哟,离线,有人找我吗?
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


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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,这是什么原因


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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”

 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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 & " '"

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


 回到顶部