事实错误‘3215(当前记录集不支持更新..........)
Dim rec As ADODB.RecordsetPrivate Sub Command1_Click(Index As Integer)
Select Case Index
Case 0
rec.AddNew
Command1(1).Enabled = True
Case 1
On Error GoTo err1
rec.UpdateBatch adAffectAllChapters
Command1(1).Enabled = False
Case 2
On Error GoTo err1
rec.CancelUpdate
End Select
Exit Sub
err1:
MsgBox Err.Description
End Sub
Private Sub Form_Load()
Left = 0
Top = 0
Me.Height = main.ScaleHeight
Me.Width = main.ScaleWidth
Set rec = DataEnvironment1.Recordsets(1)
rec.AddNew (错误在这儿,实时错误 “3251”当前记录集不支持更新,这可能是提供程序的限制,也可能是选定锁定类型的限制!)
End Sub
我是按照这个实例做的,错误在“增加”子窗体里面,请高手帮帮忙
工资管理系统.zip
(729.74 KB)
[ 本帖最后由 rensanyuan 于 2012-11-29 00:18 编辑 ]