Dim rs As String
Dim rs2 As String
For Each r As Row In Tables("XMFP").rows
Dim xm As String = r("项目名称").replace("'", "''").replace("[","'['").replace("]","']'")
Dim rw As String = r("任务").replace("'", "''")
rs= RS & "," & (xm)
rs2= RS2 & "," & (rw)
Next
rs=rs.Trim(",")
rs2=rs2.Trim(",")
DataTables("任务进度记录").LoadFilter= "convert(varchar(255), 项目名称) In (" & RS & ") and convert(varchar(255), 任务) in (" & RS2 & ") "
DataTables("任务进度记录").load
[此贴子已经被作者于2019/9/18 10:04:17编辑过]