用SQL生成窗口中的table能否再增加临时列？（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用SQL生成窗口中的table能否再增加临时列？（已解决）

共有12195人关注过本帖树形打印复制链接主题：用SQL生成窗口中的table能否再增加临时列？（已解决）

zpx_2012

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

加好友

发短信

等级：四尾狐帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00

用SQL生成窗口中的table能否再增加临时列？（已解决） 发帖心情

Post By：2013/1/6 23:40:00 [只看该作者]

各位老师，

用SQL command查询生成窗口中的table,得到的临时表能否再增加临时列，但如下代码为何总提示出错，但最后又正确显示出结果？

谢谢！

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
'用SQL语句从后台表取数形成临时表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.C
cmd.CommandText = "SELECT 产品编码,产品类别,产品系列,名称,规格,颜色,计量单位 From {产品编码}"
dt = cmd.ExecuteReader()
dt.DataCols.Add("选择1", Gettype(Boolean))
Tables(e.Form.name & "_Table1").DataSource = dt
Tables(e.Form.name & "_Table1").AllowEdit = True
Tables(e.Form.name & "_Table1").Cols("选择1").Move(0)
Tables(e.Form.name & "_Table1").AutoSizeCols()

tr.BuildTree(dt,"产品类别|产品系列")
tr.Nodes.Insert("显示所有",0) '插入顶端节点

dvubb 此主题相关图片如下：360截图20130106-1.jpg

dvubb 此主题相关图片如下：360截图20130106-2.jpg

此主题相关图片如下：360截图20130106-3.jpg

[此贴子已经被作者于2013-1-7 13:41:04编辑过]

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/1/7 8:48:00 [只看该作者]

这样改一下：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
'用SQL语句从后台表取数形成临时表
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.Connection name = "数据源名称"
cmd.CommandText = "SELECT 产品编码,产品类别,产品系列,名称,规格,颜色,计量单位 From {产品编码}"
dt = cmd.ExecuteReader()
Tables(e.Form.name & "_Table1").DataSource = dt
DataTables(e.Form.name & "_Table1").DataTable.DataCols.Add("选择1", Gettype(Boolean))
Tables(e.Form.name & "_Table1").AllowEdit = True
Tables(e.Form.name & "_Table1").Cols("选择1").Move(0)
Tables(e.Form.name & "_Table1").AutoSizeCols()

tr.BuildTree(dt,"产品类别|产品系列")
tr.Nodes.Insert("显示所有",0) '插入顶端节点

e-png

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

加好友

发短信

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

Post By：2013/1/7 8:57:00 [只看该作者]

形成窗口Table后再增加。

zpx_2012

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

加好友

发短信

等级：四尾狐帖子：976 积分：8527 威望：0 精华：0 注册：2012/2/9 16:35:00

Post By：2013/1/7 10:06:00 [只看该作者]

还是不可以，

图片点击可在新窗口打开查看此主题相关图片如下：360截图20130107-1.jpg

后来这句改成

Tables(e.Form.name & "_Table1").DataTable.DataCols.Add("选择1", Gettype(Boolean))

可以通过但在运行窗口选择时又提示：

此主题相关图片如下：360截图20130107-2.jpg

万通

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

加好友

发短信

等级：幼狐帖子：182 积分：1968 威望：0 精华：0 注册：2012/7/2 9:35:00

Post By：2013/1/7 10:11:00 [只看该作者]

DataTables(e.Form.name & "_Table1").DataTable.DataCols.Add("选择1", Gettype(Boolean))

请问一下，DataTables(e.Form.name & "_Table1").DataTable是什么意思？（dt集合后面又跟一个dt是什么意思？）

如果是这样就好理解：Tables(e.Form.name & "_Table1").DataTable

但这样：DataTables(e.Form.name & "_Table1").DataTable如果理解啊？

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/1/7 10:14:00 [只看该作者]

你增加的列名称是“选择1”，不是“选择”，留意其他位置的代码

muhua	小大 7楼 \| 信息 \| 搜索 \| 邮箱 \| 主页 \| UC
加好友发短信等级：等待验证帖子：3855 积分：20692 威望：0 精华：5 注册：2012/6/21 14:03:00	Post By：2013/1/7 10:20:00 [只看该作者] 用户已被锁定