主题：[求助]求代码，筛选后还绑定行？？？

加一列表达式列，【编号】，然后设置公式 http://www.foxtable.com/help/topics/1443.htm

AfterOpenProject事件

Tables("表A").grid.cols(0).visible = False

它们之间，一定要用相同的列关联起来啊。比如你可以试试这样

Tables("表B").Filter = "姓名 = '" & e.Table.Current("姓名") & "'"

Tables("表C").Filter = "姓名 = '" & e.Table.Current("姓名") & "'"

那试试

Tables("表B").Filter = e.Table.Filter

Tables("表C").Filter = e.Table.Filter

你可以看看这个例子

http://www.foxtable.com/help/topics/2228.htm

AfterFilter事件

Dim ids As String = ""
For Each r As Row In e.Table.Rows
    ids = ids & ",'" & r("编号") & "'"
Next
ids= ids.Trim(",")
Tables("表BB").filter = "编号 In (" & ids & ")"
Tables("表CC").filter = "编号 In (" & ids & ")"

trim

http://www.foxtable.com/help/topics/0231.htm