Dim Arys As List(Of String()) = DataTables("进度表").GetUniqueValues("[完工] <> '已完工'", "订单日期","编号") Dim d,s As String For Each Ary As String() In Arys d & = "#" & Ary(0) & "#," s & = "'" & Ary(1) & "'," Next Tables("彩印明细_table1").Fill("Select [订单日期],[客户],[编号] From {订单} where 订单日期 In (" & d.Trim(",") & ") And (编号 In (" & s.Trim(",") & "))","wbbzd",True)
|