我这样加入messagebox对吗？
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("分组") & "'"
Messagebox.show(0)
Case 1
Filter = "[分组] = '" & dr("分组") & "' And [业务] = '" & dr("业务") & "'"
Messagebox.show(1)
Case 2
Filter = "[分组] = '" & dr("分组") & "' And [分组] = '" & dr("分组") & "' And [业务] = '" & dr("业务") & "' And [品牌] = '" & dr("品牌") & "'"
Messagebox.show(2)
End Select
End If
Tables("订单信息").Filter = Filter
加好友 
发短信
Post By：2017/3/3 9:34:00 [只看该作者]
