'父,子,孙一起出来的
Dim flt As String
Dim dr As DataRow
Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then
dr = DataTables("表A").Find("单位 = '" & nd.text & "'")
flt+ = " Or 级码 Like '" & dr("级码") & "%'"
End If
Next
If flt IsNot Nothing Then
flt = flt.Substring(4)
Tables("表A").Filter = flt
End If
'父是父,子孙是子孙的
Dim flt As String
Dim trv As WinForm.TreeView = Forms("窗口1").Controls("TreeView1")
For Each nd As WinForm.TreeNode In trv.AllNodes
If nd.Checked Then flt+ = ",'" & nd.text & "'"
Next
If flt IsNot Nothing Then
flt = "单位 In(" & flt.Substring(1) & ")"
Tables("表A").Filter = flt
End If
加好友 
发短信
Post By：2013/6/6 15:00:00 [显示全部帖子]
