UC知道那为帮忙看一哈 我的那里错了哈 我做的一个用vb写的成绩管理系统啊 错的厉害啊这是错误模块的代码~~~~
来源：百度知道 编辑：UC知道 时间：2024/05/16 02:58:09
Sub initdepartment()
Dim rstDepartment As ADODB.Recordset
sqlstr = "select dept_name form departmentlnfo"
Set rstDepartment = ExecuteSQL(sqlstr, msgtext)
cboDept(0).Clear
cboDept(1).Clear
If Not rstDepartment.EOF Then
Do While Not rstDepartment.EOF
cboDept(0).AddItem Trim(rstDepartment.Fields(0))
cboDept(1).AddItem Trim(rstDepartment.Fields(0))
rstDepartment.MoveNext
Loop
cboDept(1).ListIndex = 0
Else
MsgBox "没有找到符合条件的数据！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
rstDepartment.Close
End Sub
!!!!!提示的信息是 对象变量或with变量模块没有设置
Dim rstDepartment As ADODB.Recordset
sqlstr = "select dept_name form departmentlnfo"
Set rstDepartment = ExecuteSQL(sqlstr, msgtext)
cboDept(0).Clear
cboDept(1).Clear
If Not rstDepartment.EOF Then
Do While Not rstDepartment.EOF
cboDept(0).AddItem Trim(rstDepartment.Fields(0))
cboDept(1).AddItem Trim(rstDepartment.Fields(0))
rstDepartment.MoveNext
Loop
cboDept(1).ListIndex = 0
Else
MsgBox "没有找到符合条件的数据！", vbOKOnly + vbExclamation, "警告"
Exit Sub
End If
rstDepartment.Close
End Sub
!!!!!提示的信息是 对象变量或with变量模块没有设置
重要的原因:如果正确引用的话 那么错误应该在 ExecuteSQL(sqlstr, msgtext) 这个自定义过程中,请你仔细检查这个过程,或者将代码帖来.
引其这种错误可能是:
1. 当向 ExecuteSQL()传递的sqlstr有错误时,该过程将无法设置recordset对象,所有提示变量或with未设置.这是个隐蔽错误.
2. ExecuteSQL()内部结构其它地方有错.
initdepartment(此处不能为空)
你的这段代码没有with语句
那为帮忙看一哈 我的那里错了哈 我做的一个用vb写的成绩管理系统啊 错的厉害啊这是错误模块的代码~~~~
不知道我写的简单的C语言那里错了!请大家帮忙了
帮忙看看我的系统安装那里出错了
那为ASP高手帮助看看这代码那里错了？
INSERT INTO 语句的语法错误。那位好心人帮我看看那里错了？？谢谢！
那为知道motorola的E680屏幕碎了可以换吗?如果可以换 最低需要多少钱 我在上海 那里可以换???
帮忙看看我的C括号匹配算法那里错了？
我给孩子买了个MP3,本来是打算给他学习用的,但是现在找不到那里可以下载,那位大侠可以帮忙,谢谢先
我的三星D908输入*2767*3855#后重启了，变成英文的了，那为大大帮忙告诉下怎么能变成中文的啊
那为知道原版的MTV那里可以免费下