VIP会员
购物车
私信
发表新帖
立即签到
关注
回复
支持(
反对(
首页上一页 1 下一页尾页 7 条记录 1/1页
VB项目开发案例全程实录中在线考试系统运行错误
发表在VB答疑区
2011-01-28
是否精华
是
否
版块置顶:
是
否
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
我安装完毕后，考试系统的后台管理员窗体不能正常运行，请问是什么原因？
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
我安装完毕后，考试系统的后台管理员窗体不能正常运行，请问是什么原因？
分享到：
