选中行后筛选 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

谢谢老师感谢，还有一点点小问题，

老师可以让两个不同颜色的代码单独执行吗？因为中途有个 return，把后面的代码也拦截了，每段的return可以只这段自己的的那段代码吗感谢感谢

Dim t As Table = e.Form.Controls("Table1").Table

For Each r As Row In t.GetCheckedRows

If lst.contains(r("_Identify")) = False

lst.Add(r("_Identify"))

End If

Dim s As String = ""

For Each r As Row In Tables("采订录入窗口_Table1").GetCheckedRows

s =s & "," & r("_Identify")

If s = "" Then

t.Filter = "false"

Return

End If

s = s.Trim(",")

t.Filter = "[_Identify] in (" & s & ")"

For Each r As Row In t.Rows

If lst.Contains(r("_Identify")) Then

r.Checked = True

End If

'End If

'If Tables("采订录入窗口_Table2").Current IsNot Nothing '窗口没有显示的时候

'Else '否则

Dim t1 As Table = e.Form.Controls("Table2").Table

For Each r As Row In t1.GetCheckedRows

If lst.contains(r("_Identify")) = False

lst.Add(r("_Identify"))

End If

Dim s1 As String = ""

For Each r As Row In Tables("采订录入窗口_Table2").GetCheckedRows

s1 =s1 & "," & r("_Identify")

If s = "" Then

t1.Filter = "false"

Return

End If

s1 = s1.Trim(",")

t1.Filter = "[_Identify] in (" & s1 & ")"

For Each r1 As Row In t1.Rows

If lst.Contains(r1("_Identify")) Then

r1.Checked = True

End If

'End If

主题：选中行后筛选