标准写法:
Dim filter As StringFor Each dr1 As Row In Tables("窗口销售订单_tblDingdan").Rows If filter > "" Then filter =filter & "And " End If filter=filter & "sale_id=" & dr1("sale_id")NextTables("窗口销售订单_tblDingdanmingxi").Filter=filter