加入红色代码,看弹出什么
msgbox(1)
For Each dr1 As DataRow In DataTables("订单下达_订单下达").DataRows
msgbox("[成品编码] = '" & dr1("成品编码") & "' And [中康编码] = '" & dr1("客户编码") & "' And [业务员] = '" & dr1("业务员") & "'")
For Each dr2 As DataRow In DataTables("销售报价").SQLSelect("[成品编码] = '" & dr1("成品编码") & "' And [中康编码] = '" & dr1("客户编码") & "' And [业务员] = '" & dr1("业务员") & "'")
msgbox(2)