Dim tv2 As WinForm.TreeView
tv2 =e.Form.Controls("TreeView2")
tv2.StopRedraw
tv2.Nodes.Clear
tv2.BuildTree(dt,"结帐|非活动|合同名称","","")
tv2.Nodes.Insert("所有洽商",0)
tv2.ResumeRedraw
End If
上面的目录树：结帐，非活动。是逻辑列。（SQL外部数据）
在目录树显示时，显示的是：flase ture.(不是结帐）这种我应该怎么写生成树的代码？
Dim Filter As String
If e.node.Text = "所有洽商" Then
Filter = ""
Else
Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow
Select Case e.Node.Level
Case 0
Filter ="结帐 ='" & dr("结帐") & "'"
Case 1
Filter ="结帐 ='" & dr("结帐") & "' and 非活动 ='" & dr("非活动") & "' "
Case 1
Filter =" 结帐 ='" & dr("结帐") & "' and 非活动 ='" & dr("非活动") & "' and 合同名称 = '" & dr("合同名称") & "' "
End Select
End If
DataTables("洽商汇总").LoadFilter = Filter
DataTables("洽商汇总").Load()
加好友 
发短信
Post By：2016/12/5 19:53:00 [显示全部帖子]
