请教一段代码,外部表access数据源,有一个客户表和客户联系人表,希望在客户表加载后afterload事件中加入下面的代码,实现客户联系人数据只加在客户表中已经加载的客户代码下的联系信息。
客户代码为字符型,但捣鼓了1小时没能工作。
If DataTables("客户信息").DataRows.Count =0 Then '如果客户信息表没有数据
DataTables("联系人信息").LoadFilter ="客户代码 Is Null" '不加载联系人信系
Else
DataTables("联系人信息").LoadFilter ="" '清除加载条件
Dim dms As String
For Each dr As DataRow In DataTables("客户信息").DataRows
dms =dms & ",'" & dr("客户代码") & "'"
Next
dms=dms.Trim(",")
DataTables("联系人信息").LoadFilter ="客户代码 In (" & dms & ")"
End If
DataTables("联系人信息").Load()