结合:http://www.foxtable.com/webhelp/scr/1597.htm、http://www.foxtable.com/webhelp/scr/2228.htm
Dim ids As String
For i As Integer = Tables("员工信息").TopPosition To Tables("员工信息").BottomPosition
ids = ids & "," & Tables("员工信息").Rows(i)("工号")
Next
ids= ids.Trim(",")
DataTables("培训记录").LoadFilter = "工号 in ('" & ids.Replace(",","','") & "')"
DataTables("培训记录").Load