主题：用SQL生成窗口中的table能否再增加临时列？（已解决）

各位老师，

 

用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) '插入顶端节点

 

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

 

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

 

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

还是不可以，

 

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

后来这句改成

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

 

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

  

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

没有啊，我的代码是改过来的，是选择。

 

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()

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

Tables(e.Form.name & "_Table1").AllowEdit = True
Tables(e.Form.name & "_Table1").Cols("选择").Move(0)
Tables(e.Form.name & "_Table1").AutoSizeCols()

上传例子，锁定及解锁行的代码在全局事件中

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:查询后增加临时列及父子表同时锁定解锁行问题.foxdb

我其实已经搞定了，但增加了一个临时表，不知道这种方式效率怎么样？代码如下：

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
'生成临时表再用SQL语句查找需要的字段生成table
Dim temptb As New DataTableBuilder("临时表")
temptb.Build()
Dim dt As DataTable = DataTables("临时表")
dt.Fill("SELECT 产品编码,产品类别,产品系列,名称,规格,颜色,计量单位 From {产品编码}","EI",True)
dt.DataCols.Add("选择", Gettype(Boolean))
Tables(e.Form.name & "_Table1").DataSource = dt
Tables(e.Form.name & "_Table1").AllowEdit = True
Tables(e.Form.name & "_Table1").Cols("选择").Move(0)
Tables(e.Form.name & "_Table1").AutoSizeCols()

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