以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  编辑长代码时的困扰  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=8962)

--  作者:小狐
--  发布时间:2011/1/4 22:25:00
--  编辑长代码时的困扰

编写多行代码,或者在sql 企业管理器中调试好的多行代码 移到foxtable ,

 

要么把 回车行删除 ,整为一行

要么设置字符变量,将代码分为多行, 每一行加上vbcrlf  最后作为该字符变量的值

 

这两种方式都超级麻烦,回车行删除,代码太长,不利于阅读。

用vbcrlf,后期有调整又要把全部的代码复制出来,在把vbcrlf等代码删除,还原

遇到sql多行代码在套用到foxtable的变量 头都做晕了,

 

建议对多行代码的头尾加上特殊符号 ,只要头尾加就可以了,操作简单一点,也利于后期的阅读与调整

[此贴子已经被作者于2011-1-4 22:42:39编辑过]

--  作者:狐狸爸爸
--  发布时间:2011/1/4 22:43:00
--  

这个不是我能决定的


--  作者:foxor
--  发布时间:2011/1/5 8:18:00
--  

是有点,不过在Word中统一替换后再粘贴,也不致于超级麻烦


--  作者:狐狸爸爸
--  发布时间:2011/1/5 9:11:00
--  
其实这样写也行:
 
Dim s As String
s = "; With cte As ("  & _
    " Select a.出库单号, 客户, b.产品, 最后订购日期= 日期  ,订购数量=数量"  & _
    " from 出库 a , 出库明细 b " & _
    " where  a.出库单号=b.出库单号) " & _
    " Select * from cte t " & _
    " where not exists(Select 1 from cte where 客户=t.客户 And 产品=t.产品 And 最后订购日期>t.最后订购日期)"