"智能AI数据_Table1"是明细表,还是"智能AI数据_Table2"是明细表?
如果是"智能AI数据_Table1"那么应该先加载"智能AI数据_Table1",7楼代码就是对的,调试看看
If val = "" Then
With DataTables("智能AI数据_Table1")
.LoadFilter = "" '一定要清除加载条件
.LoadTop = 25
.LoadPage = 0
.Load(False)
End With
msgbox(DataTables("智能AI数据_Table1").DataRows.Count)
Dim ids As String
For Each dr As DataRow In DataTables("智能AI数据_Table1").DataRows
ids = ids & ",'" & dr("ExcelServerRCID") & "'"
Next
ids= ids.Trim(",")
msgbox(ids)
With DataTables("智能AI数据_Table2")
.LoadFilter = "ExcelServerRCID In (" & ids & ")" '一定要清除加载条件
.Load(False)
End With
End If