主题：[求助]加载数据

在 表A(内部表) 中有 单号 列，想提取 单号列 中的不重复的单号，表B为SQL 数据表，加载表A 相同单号的 数据。以下代码帮忙看看。

Dim ids As String
For Each dr1 As DataRow In DataTables("表A").DataRows
   ids = ids & "," & dr1("单号")
Next
   ids= ids.Trim(",")
DataTables("表B").LoadFilter = "单号 In (" & ids & ")"
DataTables("表B").Load()