请教长代码换行问题。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教长代码换行问题。

共有1926人关注过本帖树形打印复制链接主题：请教长代码换行问题。

lanbor

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：4325 威望：0 精华：0 注册：2017/3/20 21:08:00

请教长代码换行问题。 发帖心情

Post By：2019/6/6 11:24:00 [只看该作者]

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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：517 积分：4325 威望：0 精华：0 注册：2014/11/26 15:23:00

Post By：2019/6/6 11:25:00 [只看该作者]

每个字符串最后一个 " 加上 & _

最后一个不要

lanbor

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：431 积分：4325 威望：0 精华：0 注册：2017/3/20 21:08:00

谢谢你，我加 &_ 也试过了。 发帖心情

Post By：2019/6/6 11:29:00 [只看该作者]

谢谢你，

我在每句后面加 &_ 也试过了。

我用变量一个串一个串的加起来也试过了。

部是报其它错误，

但单独一行是能够执行的

我想应该什么地址少了引号的问题，但不懂

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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测试窗口测试合成的语句

下一主题 >> << 上一主题

主题：请教长代码换行问题。