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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于窗口动态增加表的问题

共有4584人关注过本帖树形打印复制链接主题：关于窗口动态增加表的问题

ap9709130

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

加好友

发短信

等级：六尾狐帖子：1467 积分：11418 威望：0 精华：0 注册：2013/11/24 22:10:00

关于窗口动态增加表的问题 发帖心情

Post By：2022/6/7 21:05:00 [只看该作者]

老师

用 cmd.ExecuteReader()的方法生成的datatable , 我想在窗口上动态生成一个表，并且用DataSource的属性绑定那个datatable.要如何实现？

[此贴子已经被作者于2022/6/7 21:05:40编辑过]

有点蓝

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

加好友

发短信

等级：超级版主帖子：107662 积分：547625 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/6/7 21:25:00 [只看该作者]

参考：http://www.foxtable.com/webhelp/topics/1909.htm

Tables("窗口1_Table1").DataSource =cmd.ExecuteReader()

ap9709130

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

加好友

发短信

等级：六尾狐帖子：1467 积分：11418 威望：0 精华：0 注册：2013/11/24 22:10:00

Post By：2022/6/8 16:10:00 [只看该作者]

有点蓝老师

这个我知道，现在的问题是，我先要动态的增加表，然后再绑定。我试过 e.Form.CreateTable 不行。因为这个只针对 datatables. 如果用 CreateSQLQuery，又要用sql 语句去做一次，效率又差了。

因为是先有cmd.ExecuteReader() 的表，已经生成了，然后根据条件再动态增加一个表，然后把表的数据展示出来。

有点蓝

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

加好友

发短信

等级：超级版主帖子：107662 积分：547625 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/6/8 16:16:00 [只看该作者]

要增加表控件？

Dim tbl As WinForm.Table
tbl = e.Form.CreateSQLTable("Table1", "Select * From {随便什么表} where 1=2","nwind")
tbl.SetBounds(10, 10, 600, 400)
e.Form.AddControl(tbl)

tbl.DataSource =cmd.ExecuteReader()

ap9709130

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

加好友

发短信

等级：六尾狐帖子：1467 积分：11418 威望：0 精华：0 注册：2013/11/24 22:10:00

Post By：2022/6/8 16:49:00 [只看该作者]

好的，我试试吗。用个简单的sql 也可以。

ap9709130

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

加好友

发短信

等级：六尾狐帖子：1467 积分：11418 威望：0 精华：0 注册：2013/11/24 22:10:00

Post By：2022/6/9 14:53:00 [只看该作者]

此主题相关图片如下：1654757437362.jpg

有点蓝老师

我的代码如下：

           Dim tbl As WinForm.Table
        tbl = Forms("测试窗口").Cre ateSQL Query（“tpfmxb”,"se le ct _Identify fr om {公司信息设置} wh ere _Identify is null","h")
        tbl.SetBounds(10，10，600，400)
        Forms("测试窗口").AddControl(tbl)

为什么会报错？报错信息请看附件！
图片点击可在新窗口打开查看

此主题相关图片如下：1654757359899.jpg