Dim Filter As String If e.node.Text = "加载所有数据" Then Filter = "" Else Dim dr As DataRow = e.Node.DataRow Select Case e.Node.Level Case 0 Filter ="[报岗类型] = '" & dr("报岗类型") & "'" Case 1 Filter ="[报岗类型] = '" & dr("报岗类型") & "' And [报岗站] = '" & dr("报岗站") & "'" End Select End If DataTables("报岗").LoadFilter = Filter DataTables("报岗").Load() Tables("报岗").Sort = "上报时间 desc"
加好友 
发短信
Post By：2015/7/6 15:06:00 [显示全部帖子]
