主题：列内容查找

窗口的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