【第1句】：VBA编程时内附SQL语句太长但是无法断句,请高手帮忙解答多谢

为什么说“必须使用断句”呢？VBA的语句最长支持1024个字符，你这些写成一行也不可能超过1024个字符呀？

另外Group是SQL的保留字，一般最好不要用做字段名，实在要用的话就要在SQL命令中把它用方括号[]括起来，比如……Code,Family,[Group],Type……

还有，像 '" & ComboSSIType &； " ' 这后面的单引号前面的一个空格也会被作为内容存到数据库的哦，确信这样是对的吗？建议改为 '" & ComboSSIType & "'

此外，你这些字段确信全部都是字符串型的吗？没有数值型的？

补充：刚刚测试了一下，你的SQL命令写成一行是600多个字符，因为不断行是完全没问题的。

【第2句】：请问：怎么把几个句子变成一个长单句

你好。

你问：怎么把几个句子变成一个长单句？ 长短句相互转换，常见的有三种办法。 【第1句】：把起修饰限制作用的附加成分变成几个较短的句子。

（长变短） 把几个较短的句子变成起修饰限制作用的附加成分。（短变长） 长句：板凳厂捆着一个头发又长又脏、胡子像野草、衣服破成一片一片的人。

短句：板凳上捆着一个人，头发又长又脏，胡子像野草，衣服破成一片一片。 【第2句】：让几个并列的修饰语分别修饰中心语，构成一种排比句（长变短）。

让排比句中分别修饰中心语的修饰成分，构成几个并列的修饰语修饰一个中心语。排比句中的相同的中心语只保留一个。

（短变长） 长句：中华民族是一个有着悠久的文明历史、勤劳勇敢和富于创造精神的民族。 短句：中华民族是一个有着悠久的文明历史的民族，是一个勤劳勇敢的民族，是一个富于创造精神的民族。

【第3句】：在附加成分原来的位置上用指代的词语。（长变短） 在指代词语的位置上用附加成分。

（短变长） 长句：《****报》登载过****中央旅行社总经理、国际部主任、国内部主任和财务主任因经营不力，使企业严重亏损，因而集体引咎辞职的消息。 短句：****中央旅行社总经理、国际部主任、国内部主任和财务主任因经营不力，集体引咎辞职，《****报》登载过这个消息。

总之有时根据表达的需要，可以把一组短句子变成一个长句子，方法和长句变短句正好相反，即以其中一个短句为主干，把其余的短句变成短语做修饰语。如： 那是新产品，质量相当好，价钱也便宜，大家都很喜欢用。

这一组短句可以改为一个长句。 那是质量相当好、价钱也便宜、大家都喜欢用的新产品。

【第3句】：VBA中长的查询语句如何分行或者这条语句该如何写更好

很佩服你的耐心，我看着都晕，伸把手吧！

如果“child.在册情况”的内容为一个字符可以把一组not like 合并成：

instr('SJKLMNW',child.在册情况)=0

即：“child.在册情况”中不包含S,J,K,L,M,N的（不知为什么你用了两次'%S%'?）

另外：好像有三部分（出生日期，户籍属性，在册情况）是一样的应该提到外面，像这样的结构：A*B*C*(x+y+z+。)

即类似下面（未试验，自己试吧）

(child.出生日期>='2000-01-01') AND (child.户籍属性'1') and instr('SJKLMNW',child.在册情况)=0 and (child.通讯地址 Like '%木渎%' OR child.通讯地址 Like '%金桥%' OR 。.)

用CHARINDEX函数代替instr，用法：

CHARINDEX ( expression1 , expression2 [ , start_location ] )

【第4句】：vb语句改为循环语句

窗体上放两个text控件. text1为N的值（计算到第几项）， text2为a的值.项目N的定义从0开始. a = 1---------------------------N=0b = 3 * a-----------------------N=1c = 3 * ( b + a )-------------N=2d = 3 *( c + b + a )-----------N=3e = 3 * ( d + c + b + a )-----N=4f = 3 *( e + d + c + b + a )--N=5Private Sub Command1_Click() Dim Sum As Double Dim N As Integer Dim a, b As Double a = CDbl(Text 【第2句】：Text) 'b = 3 * a For N = 1 To CInt(Text 【第1句】：Text) Sum = 3 * (a + b) b = a + b a = Sum Next If CInt(Text 【第1句】：Text)= 0 Then Sum = a MsgBox "Sum=" & SumEnd Sub。

【第5句】：VBA简单的程序语句

改成下面的代码试试

Sub test()

Dim cj As Double

cj = Val(InputBox（"请输入分数"， "数据采集--"， 60）)

If cj >= 90 Then

MsgBox "优"

ElseIf cj >= 80 Then

MsgBox "良"

ElseIf cj >= 60 Then

MsgBox "中"

Else

MsgBox "差"

End If

End Sub