菜鸟求助 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做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
刚接触vb6.0，有些摸不到的感觉，敬请各位大虾给点建议！！！
不会吧，推荐学习.NET。顺便推荐实用代码网站http://bingning.net/free/source/index.html。
如果没基础 就用易语言吧 中文编程呢 代码都是中文 ......
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
为什么我想循环自动发送邮件的时候,就只有第一封能自动发送,其它后面的邮件都只能创建,不能自动发送
Private Sub send_mail_Click() '发送邮件通知
Do While Not TDBG_Dept.EOF
If A> ......
现在我想根据treeview上每个节点的权限，没有权限的节点不能被选中，而且成灰色，怎么实现，在线等。。。
这个？。。。
貌似没法。
试试能不能改某些node的颜色，记录下上次的nodeclick里的node。
下次点击的如� ......
