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

 换种思路才行。原表加入一列吧。反正都是临时列。

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
'用SQL语句从后台表取数形成临时表
Dim cmd As New SQLCommand
Dim dt As DataTable = DataTables("产品编码")
dt.DataCols.Add("选择", Gettype(Boolean))

cmd.CommandText = "SELECT 选择,产品编码,产品类别,产品系列,名称,规格,颜色,计量单位 From {产品编码}"
dt = cmd.ExecuteReader()

Tables(e.Form.name & "_Table1").DataSource = dt

Tables(e.Form.name & "_Table1").AllowEdit = True
Tables(e.Form.name & "_Table1").AutoSizeCols()

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