以下是引用狐狸爸爸在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编辑过]