-- 作者:seal51
-- 发布时间:2015/5/23 16:09:00
--
Dim
trv
As
WinForm.TreeView = e.Form.Controls("TreeView1") trv.BuildTree("订单", "产品") trv.Nodes.Insert("显示所有行",0)
Dim Filter As String Dim dr As DataRow = e.Node.DataRow \'获取生成此节点的行 If e.Node.Text <> "显示所有行" Then Select Case e.Node.Level Case 0 Filter = "[产品] = \'" & dr("产品") & "\'" End Select End If Tables("订单").Filter = Filter
代码这样写,可以达到目的, 不过是这样写吗
|