以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于筛选  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84246)
--  作者：sunsenfeng
--  发布时间：2016/4/26 16:30:00
--  [求助]关于筛选
请老师指导

有客户树和订单表

全部客户
|___山东
       |___青岛
              |___青岛海尔集团
              |___青岛海信集团

表结构
编号,客户名称,市,省
01,青岛海尔集团,青岛,山东
......

订单表
订单编号,客户编号,...
S001,01,...

请问如何设置目录树的Click事件,筛选出不同范围的订单?
--  作者：大红袍
--  发布时间：2016/4/26 16:41:00
--  

参考代码

 

Dim nd As WinForm.TreeNode = e.node
Dim dr As DataRow = nd.DataRow
Dim idxs As String = ""
If nd.Level = 0 Then
    idxs = dr.DataTable.GetComboListString("编号", "省 = \'" & dr("省") & "\'").replace("|", "\',\'")
ElseIf nd.Level = 1 Then
    idxs = dr.DataTable.GetComboListString("编号", "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\'").replace("|", "\',\'")
ElseIf nd.Level = 2 Then
    idxs = dr.DataTable.GetComboListString("编号", "省 = \'" & dr("省") & "\' and 市 = \'" & dr("市") & "\' and  客户名称 = \'" & dr("客户名称") & "\'").replace("|", "\',\'")
End If
msgbox(idxs)
Tables("订单表").filter = "客户编号 in (\'" & idxs & "\')"
--  作者：sunsenfeng
--  发布时间：2016/4/26 21:40:00
--  
非常感谢大红袍老师，思路总是那么精彩！