VB 代码换行~~

[okcat]

Set rs = cnn.Execute("SELECT '1生鲜',SUM(XSSR + PFSR ) XSSR, SUM(XSSR+PFSR)-SUM(XSHSJJJE+PFHSJJJE+XSHSJJAD+PFHSJJAD)+SUM(XSSUPZK + PFSUPZK) ML_SUP FROM SALECOSTDAY 。。。。。
后面还有，想分成两句写怎么实现呢？

[viena]

空格加下划线

[viena]

字符串拆开，用&连接

[迈克揉索芙特]

Set rs = cnn.Execute("SELECT '1生鲜',SUM(XSSR + PFSR ) XSSR, " & _
" SUM(XSSR+PFSR)-SUM(XSHSJJJE+PFHSJJJE+XSHSJJAD+PFHSJJAD)+SUM(XSSUPZK + PFSUPZK) " & _
" ML_SUP FROM SALECOSTDAY...."

[jasonren]

代码转行,楼上正解.字符换行,& vbTab

[迈克揉索芙特]

看了一眼楼主的信誉分，我差点晕倒。
友情提醒：别忘了结贴啊.....

[云中客]

Set rs = cnn.Execute("SELECT '1生鲜',SUM(XSSR + PFSR ) XSSR, " & _
" SUM(XSSR+PFSR)-SUM(XSHSJJJE+PFHSJJJE+XSHSJJAD+PFHSJJAD)+SUM(XSSUPZK + PFSUPZK) " & _
" ML_SUP FROM SALECOSTDAY...."