高考问答js源代码加密:VB错误"3129"
来源：百度文库 编辑：高考问答 时间：2024/04/29 04:41:32
FORM_LOAD
sql = "select * from 班级信息"
RC.Open sql, CONN, adOpenStatic, adLockOptimistic
Set MSHFlexGrid1.DataSource = RC
sql1 = "select 学号,姓名,班级 from 学生档案"
RCs.Open sql1, CONN, adOpenStatic, adLockOptimistic
Set MSHFlexGrid2.DataSource = RCs
COMMAND_CLICK
With RCs
.AbsolutePosition = MSHFlexGrid2.RowSel
ID = .Fields("学号")
names = .Fields("姓名")
End With
RC.AbsolutePosition = MSHFlexGrid1.RowSel
If RCs.Fields("班级") = "" Then
RCs.Fields("班级") = RC.Fields("班级名称")
idn = ID + "号 " + names
List1.AddItem (idn)
Set MSHFlexGrid2.DataSource = RCs
Else
MsgBox "该学生已经入驻其他班级"
End If
FORM_UNLOAD
RCS.CLOSE
RC.CLOSE
运行起来都是好的 但是关闭窗体（它是MID窗体）的时候 就跳出错误3129 此环境中不允许操作
指向了rcs.close
哪位高手帮我看看怎么解决
...
sql = "select * from 班级信息"
RC.Open sql, CONN, adOpenStatic, adLockOptimistic
Set MSHFlexGrid1.DataSource = RC
sql1 = "select 学号,姓名,班级 from 学生档案"
RCs.Open sql1, CONN, adOpenStatic, adLockOptimistic
Set MSHFlexGrid2.DataSource = RCs
COMMAND_CLICK
With RCs
.AbsolutePosition = MSHFlexGrid2.RowSel
ID = .Fields("学号")
names = .Fields("姓名")
End With
RC.AbsolutePosition = MSHFlexGrid1.RowSel
If RCs.Fields("班级") = "" Then
RCs.Fields("班级") = RC.Fields("班级名称")
idn = ID + "号 " + names
List1.AddItem (idn)
Set MSHFlexGrid2.DataSource = RCs
Else
MsgBox "该学生已经入驻其他班级"
End If
FORM_UNLOAD
RCS.CLOSE
RC.CLOSE
运行起来都是好的 但是关闭窗体（它是MID窗体）的时候 就跳出错误3129 此环境中不允许操作
指向了rcs.close
哪位高手帮我看看怎么解决
...
在Form_Unload里面这么写
On Error Resume Next '这个是忽略错误的.
Set Rc =nothing '设置Rc 为nothing,就是没东西
加这么几句就没的这个提示了