如下代码:
'集合选择的单据编号加载数据
Dim ids As String
For Each r As Row In tbl.Rows
If r("选择") = True Then
ids = ids & ",'" & r(Vars("Idc")) & "'"
End If
Next
ids= ids.Trim(",")
msgbox(Vars("Idc") & " In (" & ids & ")")
DataTables(Mtb & "_主表").LoadFilter = Vars("Idc") & " In (" & ids & ")"
DataTables(Mtb & "_主表").Load()
msgbox显示出来是:
订单编号 In ('D1404-027','D1404-028','D1404-029')
请教是哪里错了,为何总提示 ')' 附近有语法错误。
谢谢!