以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教长代码换行问题。  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=135956)
--  作者：lanbor
--  发布时间：2019/6/6 11:24:00
--  请教长代码换行问题。
    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没有定义。
请教这个长串如何正确连接
谢谢
--  作者：xndd
--  发布时间：2019/6/6 11:25:00
--  

 每个字符串最后一个 " 加上 & _
最后一个不要
--  作者：lanbor
--  发布时间：2019/6/6 11:29:00
--  谢谢你，我加 &_ 也试过了。
谢谢你，
我在每句后面加 &_  也试过了。
我用变量一个串一个串的加起来也试过了。

部是报其它错误， 
但单独一行是能够执行的

我想应该什么地址少了 引号的问题，但不懂
--  作者：有点甜
--  发布时间：2019/6/6 11:29:00
--  

细节自己调整

 

filter="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"
filter=filter & " FR OM {MO} As m1 left join {ITEM} As i1 on m1.ITEM_ID=i1.ITEM_BUSINESS_ID"
filter=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" \'取所有条件

 

合成的filter，msgbox弹出一下，看是否正确，在sql测试窗口测试合成的语句