就是帮助里面的最简单的那个筛选树，我想改成从一个combobox取动态值来筛选。我做了一个combobox，里面能选择几个列名称，然后加个button，button代码如下：
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
'Dim x As WinForm.Control =e.Form.Controls("combobox1").text
Dim x As String = e.Form.Controls("ComboBox1").text
trv.BuildTree("订单", "'"& x &"'")
trv.Nodes.Insert("显示所有行",0)
然后在treeview的NodeMouseClick的代码改为
Dim Filter As String = Forms("订单").Controls("CmoboBox1").text
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的行
If e.Node.Text <> "显示所有行" Then
Filter = "'"& Filter &"' = '" & dr("'"& Filter &"'") & "'"
End If
Tables("订单").Filter = Filter
结果报错..............“无效列名“””
不知道怎么改？
加好友 
发短信
Post By：2021/4/4 22:34:00 [只看该作者]
