Question

VB中使用全局变量字符串，不能保存所有内容

代码如下：
dim strSql as String
strSql = "select 编号,姓名,性别,教师编号,教师名,课程编号,课程名,课程类型,考查课总成绩,考试总成绩,实验成绩,毕业设计成绩,作业成绩 from Grade where (考查课总成绩 Like '不及格' or 考试总成绩 < 60 or 作业成绩 like '不及格' or 实验成绩 like '不及格' or 毕业设计成绩 like '不及格') and 考生状态 not like '取消资格' and 考生状态 not like '缺考' and 考生状态 not like '违纪' and 考生状态 not like '参军' and 考试学年 = " & intCurTermYear & " and 考试学期 = " & intCurTerm

而实际的strSql得到的值为
strSql = "select 编号,姓名,性别,教师编号,教师名,课程编号,课程名,课程类型,考查课总成绩,考试总成绩,实验成绩,毕业设计成绩,作业成绩 from Grade where (考查课总成绩 Like '不及格' or 考试总成绩 < 60 or 作业成绩 like '不及格' or 实验成绩 like '不及格' or 毕业设计成绩 like"

缺少了后面的一部分字符串，我查看了MSDN，上边写string 类型的变体支持2亿字符，我的代码肯定没有超范围。难道是因为全局变量的原因么？我换成定长字符串定义全局变量结果也是一样的，使用局部变量定义字符串结果还是一样的。怎么样才能存储足够长的字符串呢？也尝试过代码换行，或者将字符串裁成2截，使用字符串连接函数连接，都不能解决问题！
我在debug模式下测试得到的字符串内容就是不完整的，编译直接运行就会报错。还是字符串的内容不对。我的VB是6.0 D版的，不过在微软上找到了所有的补丁都打过了SP6啥的。。。现在程序就省这一个问题了，崩溃ing。理论上应该是没错误的，但是跑起来就出错。

我把代码放到新建的工程中，还是不对，如果能调试通过能发个截图看看么？
代码语法没问题，但是运行后字符串内容不是所要赋值的内容，可以从debug模式或者屏幕输出都能看出来内容丢失。例如下面代码
--------------------------------------------------
Option Explicit
Public strSql As String
Private Sub Command1_Click()
strSql = '上面的代码内容，达到补充最大长度了不好意思
Me.Print strSql '在这里设置断点，查看strSql内容，可以看到是不完整的
End Sub

Answer 1

dim strSql as String
把定义的变量放在全局变量的位置上，也就是最上面。你试一下吧没问题的。
Dim strSql As String
---------------------------
Private Sub Command1_Click()
Me.Text1.Text = strSql
End Sub
----------------------------
Private Sub Form_Load()
strSql = "select 编号,姓名,性别,教师编号,教师名,课程编号,课程名,课程类型,考查课总成绩,考试总成绩,实验成绩,毕业设计成绩,作业成绩 from Grade where (考查课总成绩 Like '不及格' or 考试总成绩 < 60 or 作业成绩 like '不及格' or 实验成绩 like '不及格' or 毕业设计成绩 like '不及格') and 考生状态 not like '取消资格' and 考生状态 not like '缺考' and 考生状态 not like '违纪' and 考生状态 not like '参军' and 考试学年 = " & intCurTermYear & " and 考试学期 = " & intCurTerm
End Sub

Answer 2

我在本机上调试了，没问题，不存在你说的，我是直接复制你上面的代码测试，没错误

Answer 3

改成 变体类型 试试