借钱不还在哪里起诉:vb中的莫名其妙的问题,高手来!

来源:百度文库 编辑:高考问答 时间:2024/04/27 22:55:20
form_load
Dim sqlR As String
sqlR = "select 学号,姓名,班级 from 学生档案"
RCX.Open sqlR, CONN, adOpenStatic, adLockOptimistic Set MSHFlexGrid2.DataSource = RCX
Image1.Picture = LoadPicture(App.Path & "\ico\zt2.gif")

sql = "select * from 班级信息"
RC.Open sql, CONN, adOpenStatic, adLockOptimistic Set MSHFlexGrid1.DataSource = RC
MSHFlexGrid1.Cols = 1

Private Sub Command_Click()
RCX.AbsolutePosition = MSHFlexGrid2.RowSel
RCX.Fields("班级") = ""
Set MSHFlexGrid2.DataSource = RCX
End Sub

FORM_UNLOAD
RCX.CLOSE
RC.CLOSE
UNLOAD ME
END SUB

RC的代码就省略了 因为不用到RC的代码 只碰一下COMMAND 关闭窗体都会跳出错误3129 此环境不允许操作 然后指向了RCX.close 同样的操作下RC一此无错都没出现 为什么RCX只要碰到一点点就出错了 是不是RCX.AbsolutePosition的问题 但是应该是没有错的 这个错误很莫名其妙
前些日子问过了 有人叫我在form_unload里面用On Error Resume Next 和Set Rc =nothing 但是RCX.CLOSE一样会报错 只是被On Error Resume Next忽略 所以导致RCX.close没用 然后第2次打开窗体的时候就提示RCX已经打开了的错误 因为窗体是MID窗体肯定会存在第2次打开的
其实我这是我毕业论文的设计作业 我根本没学过这些代码 学校没教 我搞的怎么都 都是自己自学的 学的也乱 出了个错误我自己都头大 哪为高手帮帮我把 如果在这上面说不请 我的QQ86878756希望好心的高手能加我 帮助我 让我解决困难~