在定义变量时候 可以使用 _换行
例如
Dim a As String, _
b As String
对于非sql 语句 可以使用 空格+ _
例如
if MsgBox("您确认要清空文本框值吗?", vbOKCancel + vbInformation, "提示") = vbOK Then
If MsgBox("您确认要清空文本框值吗?", vbOKCancel + _
vbInformation, "提示") = vbOK Then
对于 sql 语句 可以在句末+双引号+空格+下划线,下一句前面+&+空格+双引号
例如
strsql = "Select 采购订单表.状态, 采购订单表.采购订单号, 采购订单表.采购日期, 采购订单表.供应商ID, 采购订单表.经办人" _
& " FROM 采购订单表;"
也可以
a = "Select 采购订单表.状态, 采购订单表.采购订单号, 采购订单表.采购日期, 采购订单表.供应商ID, 采购订单表.经办人"
a = a & " FROM 采购订单表;"