菜鸟求助 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
相关问答：
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
DIM ds as new DataSet
我这样声明 怎老是报 用户定义类型未定义？ 这个需要引用什么吗？？
前提是DataSet对象要存在,就是对象浏览器中有它.没有就要引用.
dataset是ADO.NET对象
如果你用的是vb.net，那么在� ......
在网上下载了speechsdk51LangPack安装后，用vb可以发音（中文），里面有个girl xiaokun的发音，对中文很好听。但是这个speechsdk51LangPack有100多M，我的vb项目打包后，怎么才可以装到其他机子上也能用？？总不能每 ......
把已有数据（数据大于20行）的RS(recordset)的第10行数据与第11行数据做加法后，删除第11行的数据，然后把后面的数据向前移。
RS的话修改数据是会更新数据库，现在的问题是RS里的已有数据是用SQL语句分类统计出来的 ......
