菜鸟求助 vb实时错误3021
Bof或者Eof中有一个是真，或者当前的纪录已被删除，所需的操作要求一个当前的纪录？？这是什么意思？程序又错在哪里？要怎么改？
Function CopyRecordSetUpdatable(ByVal rs As ADODB.Recordset, ByVal mfg As MSHFlexGrid) As ADODB.Recordset
Dim rsReturn As ADODB.Recordset
Dim fld As ADODB.field
Dim lFieldsCount As Long
Dim vIndexs() As Variant
Dim vValues() As Variant
Dim i As Long
lFieldsCount = rs.Fields.count
ReDim vIndexs(lFieldsCount - 1)
ReDim vValues(lFieldsCount - 1)
Set rsReturn = New ADODB.Recordset
For i = 0 To lFieldsCount - 1
Set fld = rs.Fields(i)
vIndexs(i) = i
rsReturn.Fields.Append fld.name, fld.Type, fld.DefinedSize, fld.Attributes Or adFldUnknownUpdatable
Next
rsReturn.Open
While Not rs.BOF
For i = 0 To lFieldsCount - 1
vValues(i) = mfg.TextMatrix(10, i)
Next
rsReturn.AddNew vIndexs, vValues
rs.MoveNext
Wend
If Not rsReturn.BOF Then
rsReturn.UpdateBatch
rsReturn.MoveFirst
End If
Set CopyRecordSetUpdatable = rsReturn
End Function
Set fld = rs.Fields(i)
如果传递进来的RS为空的，那么就会出现这个错误
你在获取的时候判断下RS就可以了啊。
Set fld = rs.Fields(i) & ""
if is
相关问答：
各位大虾：
我是刚学VB，现在想用VB调用一个动态库，动态库里面有很多函数。我知道使用VB调用动态库调用函数，需要将要调用的函数在程序中声明即可，但是里面有很多函数，不会每一个函数都要声明吧。请� ......
VB怎样获得鼠标处的超级连接呢？
在WebBrowser控件中有这样一个事件:StatusTextChange(index As Integer, ByVal Text As String)
它的Text参数正是鼠标处的超级连接,但问题是如果我的浏览器正� ......
用vc编写的dll在debug模式和release模式下启动vb的exe程序调用vc的dll可以得到正确结果，但是如果直接双击vb的exe程序调用dll报错，在dll内部添加messagebox后发现只要在函数内部声明std::string类型的变量就会出现� ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
