以下是引用狐狸爸爸在2011-7-13 17:44:00的发言：
表达式中的字符要用单引号：
Dim ids As String
For Each dr As DataRow In DataTables("表A").DataRows
If dr.IsNull("第一列") = False Then
ids = ids & ",'" & dr("第一列") & "'"
End If
Next
ids = ids.Trim(",")
MessageBox.Show(ids)
DataTables("表B").LoadFilter = "第一列 In (" & ids & ")"
messagebox.show("第一列 In (" & ids & ")")
DataTables("表B").Load()
难怪楼主,你看帮助文件就是这样写的(实际应用订单ID很少为数值型):
要完成这样的任务很简单，只需在订单表的AfterLoad事件中加入以下代码即可：
Dim ids As String
For
Each dr As DataRow In DataTables("订单").DataRows
ids = ids & "," & dr("订单ID")
Next
ids= ids.Trim(",")
DataTables("订单明细").LoadFilter = "订单ID In
(" & ids & ")"
DataTables("订单明细").Load()
[此贴子已经被作者于2011-7-13 18:04:43编辑过]
加好友 
发短信
Post By：2011/7/13 18:04:00 [只看该作者]
