设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1674|回复: 4
打印 上一主题 下一主题

请老师看看下面的代码太长如何换行,谢谢

[复制链接]
跳转到指定楼层
1#
发表于 2019-11-20 07:24:47 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

请老师看看下面的代码太长如何换行,谢谢
SQL = "Update [PLAN$A:R] set [HOME]='" & arr(i, 1) & "',[CO_NUMBER]='" & arr(i, 2) & "',[CUST_ID]='" & arr(i, 3) & "',[SHIP_TO_ID]='" & arr(i, 4) & "',[LN_NO]='" & arr(i, 5) & "',[ITEM]='" & arr(i, 6) & "',[FMLY_NAME]='" & arr(i, 7) & "',[DESC]='" & arr(i, 8) & "',[ORDER_QTY]='" & arr(i, 9) & "',[PROM_DLVRY]=#" & arr(i, 10) & "#,[LINE_STA]='" & arr(i, 11) & "',[追踪整机MO]='" & arr(i, 12) & "',[TEXT_NO]='" & arr(i, 13) & "',[Request_date]=#" & arr(i, 14) & "#,[MO_NUMBER]='" & arr(i, 15) & "',[排产日期]=#" & arr(i, 16) & "#,[ASSY排产 班次]='" & arr(i, 17) & "',[ASSY排产数量]='" & arr(i, 18) & "'  where [MO_NUMBER]='" & arr(i, 15) & "'"
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2019-11-20 09:51:09 | 只看该作者
空格,下划线,然后连接下一行。例如:
xxx = "1234"  _
         &"ddd"
又或者,变量替换:
xxx = "1234"
xxx = xxx & "ddd"
----------------------
说句题外话,你在论坛也算是很久了。这种入门级的问题,不应该再问才对啊。
3#
 楼主| 发表于 2019-11-20 10:56:39 | 只看该作者
roych 发表于 2019-11-20 09:51
空格,下划线,然后连接下一行。例如:
xxx = "1234"  _
         &"ddd"

roych 老师也明白空格 下划线的使用,就是使用不好,在论坛里也混了好长时间,依旧是菜鸟,还需要老师多多见谅,感谢帮助!
4#
发表于 2019-11-23 16:04:56 | 只看该作者
SQL语句建议在关键字前换行,例如:
strsql = "select 字段1,字段2 from 表1 where 字段1='A' order by 字段1"
用连接符断开:

dim strsql as string
strsql = ""

strsql ="select 字段1,字段2"
strsql = strsql & " from 表1"
strsql = strsql & " where 字段1='A'"
strsql = strsql & " order by 字段1"

msgbox strsql

注:from、where、order by这三个关键字前面都有一个空格。
5#
 楼主| 发表于 2019-11-25 10:21:05 | 只看该作者
accben 发表于 2019-11-23 16:04
SQL语句建议在关键字前换行,例如:
strsql = "select 字段1,字段2 from 表1 where 字段1='A' order by 字 ...

accben老师谢谢您的帮助
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-13 09:53 , Processed in 0.084959 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表