以下是引用明丰在2011-8-19 10:19:00的发言：
只查找货品资料表指定列的内容
1：“货品资料”表的列名称自动填充到“列选择”表的“列名”列中；
窗口的AfterLoad事件代码改为：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree("货品资料", "货品类别|货品简称|品牌")
trv.Nodes.Insert("显示所有行","显示所有行",0)
DataTables("列选择").DataRows.Clear()
For Each dc As DataCol In DataTables("货品资料").DataCols
Dim dr As DataRow = DataTables("列选择").AddNew()
dr("列名") = dc.name
Next
加好友 
发短信
Post By：2011/8/19 11:37:00 [显示全部帖子]
