filt er="Select i1.ITEM_CODE,i1.ITEM_NAME,i1.ITEM_SPECIFICATION,m1.DOC_NO,m1.DOC_DATE,m1.STATUS,m1.PLAN_QTY,substring(m1.DEMAND_NO,1,17) order_no,m1.COMPLETED_QTY,m1.ACTUAL_START_DATE,m1.ACTUAL_COMPLETE_DATE"
filt er=filter & " FR OM {MO} As m1 lift join {ITEM} As i1 on m1.ITEM_ID=i1.ITEM_BUSINESS_ID"
filt er=filter & " WHERE i1.[ITEM_CODE]='"& Vars("find01") &"' And substring(m1.[DOC_NO],1,4) In ('" & Vars("find00").replace(",","','") And m1.[STATUS] In ( " & g_stat & " ) And m1.[DOC_DATE] between '" & Date1 & "' and '" & Date2 & "' ORDER BY m1.DOC_DATE desc" '取所有条件
Dim db00 As DataT able
Dim cmd As new SQLCo mmand '找制程指令号
cmd.Co nnecti
cmd.Com mandText =filter
db00 = cmd.Ex ecute Reader()
上面的:filter字符串中一直报错：说m1没有定义。
请教这个长串如何正确连接
谢谢
加好友 
发短信
Post By：2019/6/6 11:24:00 [显示全部帖子]
