胸片硬化吃什么:vb中的莫名其妙的问题,高手来帮帮我

来源:百度文库 编辑:神马品牌网 时间:2024/05/08 00:45:36
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 FORM_LOAD里面加On Error Resume Next 即可将所有RCX的错误解决掉 我试过了 可行 在程序不关闭的情况下 看起来是正常的工作 但是程序关闭后 再开的时候 RCX的最后一次操作是无效的 比如之前我最后一次操作在RCX删除了一条记录 我重开程序后这个操作等于没操作一样 那条记录还在 这应该是On Error Resume Next 的问题 其实我这是我毕业论文的设计作业 我根本没学过这些代码 学校没教 我搞的都是自己自学的 学的也乱 出了个错误我自己都头大 哪为高手帮帮我把 如果在这上面说不请 我的QQ86878756希望好心的高手能加我 或者留下自己的QQ 帮助我 让我解决困难~ 我真的 很需要高手来帮助我

你的RC和RCX都是记录集吧,最好只在同一个事件里用,用完就释放掉,
再用再建。这样比较好一点。

看不懂