各位老师，

用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

这样改一下：

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

还是不可以，

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

后来这句改成

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

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

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

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