我其实已经搞定了,但增加了一个临时表,不知道这种方式效率怎么样?代码如下:
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) '插入顶端节点