VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 2 条记录 1/1页
问题一直没有解决啊，请看一下
发表在VB答疑区
2011-02-11
是否精华
是
否
版块置顶:
是
否
Private Sub Cmd_XZT_Click()
Sql = "select 类型号=tb_testtype.Typeid,题号=(tb_topicstor.topicid)," & _
"题目名称=topicname,答案=topicanswer,A,B,C,D,E,F " & _
"from tb_topicstor,tb_testtype where tb_testtype.typeid=tb_topicstor.typeid " & _
"and typename='" & Cmd_XZT.Caption & "'" '把查看选择题的SQL语句赋给变量Sql
Call FunAdo(Sql) '调用函数执行SQL语句
DG.Columns(0).Width = 700 '设置DataGrid的第1列列宽
DG.Columns(1).Width = 500 '设置DataGrid的第2列列宽
DG.Columns(2).Width = 4000 '设置DataGrid的第3列列宽 （在这里出现错误提示：下标越界）
DG.Columns(3).Width = 500 '设置DataGrid的第4列列宽
End Sub
数据库是正确附加的，因为我可以正常运行登陆界面。用管理员身份登陆后就提示这个错误，提示错误时停留的代码我在问题中已标出，DG.Columns(2).Width = 4000 '设置DataGrid的第3列列宽 （在这里出现错误提示：下标越界）
我把这句代码删除后，错误提示停留在下一句代码。开始我以为是代码所列出的列数不对，添加了几列还是给出同样的错误提示，所以只好请教老师，不知道那里出问题，谢谢
Sql = "select 类型号=tb_testtype.Typeid,题号=(tb_topicstor.topicid)," & _
"题目名称=topicname,答案=topicanswer,A,B,C,D,E,F " & _
"from tb_topicstor,tb_testtype where tb_testtype.typeid=tb_topicstor.typeid " & _
"and typename='" & Cmd_XZT.Caption & "'" '把查看选择题的SQL语句赋给变量Sql
Call FunAdo(Sql) '调用函数执行SQL语句
DG.Columns(0).Width = 700 '设置DataGrid的第1列列宽
DG.Columns(1).Width = 500 '设置DataGrid的第2列列宽
DG.Columns(2).Width = 4000 '设置DataGrid的第3列列宽 （在这里出现错误提示：下标越界）
DG.Columns(3).Width = 500 '设置DataGrid的第4列列宽
End Sub
数据库是正确附加的，因为我可以正常运行登陆界面。用管理员身份登陆后就提示这个错误，提示错误时停留的代码我在问题中已标出，DG.Columns(2).Width = 4000 '设置DataGrid的第3列列宽 （在这里出现错误提示：下标越界）
我把这句代码删除后，错误提示停留在下一句代码。开始我以为是代码所列出的列数不对，添加了几列还是给出同样的错误提示，所以只好请教老师，不知道那里出问题，谢谢
分享到：
