 加好友  发短信
等级：版主
帖子：85326
积分：427815
威望：0
精华：5
注册：2012/10/18 22:13:00
|
 Post By：2015/3/17 17:07:00 [显示全部帖子]
If e.Node.FullName.Contains("西太华") Then
Tables("清单_Table2").DataSource = DataTables("西太华清单")
Else If e.Node.FullName.Contains("北京华联") Then
Tables("清单_Table2").DataSource = DataTables("北京华联清单")
End If
Dim filter As String
Select Case e.Node.Level
Case 0
filter = ""
Case 1
Select Case e.node.Text
Case "肉类清单"
filter = "种类 = '肉类'"
Case "水果清单"
filter = "种类 = '水果'"
End Select
End Select
Tables("清单_Table2").filter = filter
|
|
