For Each dr In DataTables("erId").Select("")
Ider = Ider & ",'" & dr("errorid") & "'"
Next
Tables("tbl").Filter = "Id in (” & ider.Trim(",") & ") "
如果是整数:
Dim ider As String
dim dr as datarow
For Each dr In DataTables("erId").Select("")
Ider = Ider & "," & dr("errorid")
Next
Tables("tbl").Filter = "Id in (” & ider & ") "