7453
社区成员
- 主页
****高分请教，一个DataGrid的出错！！****
本人以前都用delphi，现在因工作需要改用vb，我在一个form上用了一个ado，datagrid，还有一些，text，我先用一conection于ado绑定，然后datagrid，text都与ado绑定，但现在当我点击“添加”后（datagrid自动下移至一个空记录，），当我又不想操作了，点击“取消”时，程序就报错（“无法插入空行，行必须又一个列值集”），请文这个问题如何解决呀？
...全文
请发表友善的回复…
发表回复
lhh 2001-11-16
to 大鸟
谢谢，但是不行。
谢谢，但是不行。
lhh 2001-11-16
多谢以上2位的帮助，我都试过了，好像不行。请看以下是点击“取消”的代码：
Private Sub cmdCancel_Click()
On Error Resume Next
SetButtons True
mbEditFlag = False
mbAddNewFlag = False
adoPrimaryRS.CancelUpdate
If mvBookMark > 0 Then
adoPrimaryRS.Bookmark = mvBookMark
Else
adoPrimaryRS.MoveFirst
End If
mbDataChanged = False
End Sub
我用调试发现是在adoPrimaryRS.CancelUpdate中出的问题
而报错（标题是“microsoft datagrid 错误”）都出在一下的代码：
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'为这个 recordset 显示当前记录位置
lblStatus.Caption = "第" & CStr(adoPrimaryRS.AbsolutePosition) & "条记录 " & "/" & " 共" & CStr(adoPrimaryRS.RecordCount) & "条记录"
End Sub
Private Sub cmdCancel_Click()
On Error Resume Next
SetButtons True
mbEditFlag = False
mbAddNewFlag = False
adoPrimaryRS.CancelUpdate
If mvBookMark > 0 Then
adoPrimaryRS.Bookmark = mvBookMark
Else
adoPrimaryRS.MoveFirst
End If
mbDataChanged = False
End Sub
我用调试发现是在adoPrimaryRS.CancelUpdate中出的问题
而报错（标题是“microsoft datagrid 错误”）都出在一下的代码：
Private Sub adoPrimaryRS_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
'为这个 recordset 显示当前记录位置
lblStatus.Caption = "第" & CStr(adoPrimaryRS.AbsolutePosition) & "条记录 " & "/" & " 共" & CStr(adoPrimaryRS.RecordCount) & "条记录"
End Sub
zsajap 2001-11-16
将datagrid的allowdelete属性设为false
icedog 2001-11-16
好像得把那条del,或者用recordset.requery，刷新recordset和表格
zymfy 2001-11-16
将datagrid的allowupdate属性设为false
试试吧 ：）
试试吧 ：）