惊天大秘密,我发现了一严重的Bug,高手请来看一看

[jackchina]

下载了"使主子窗体默认状态不可修改"的代码的学友要注意,如果在"新增"命令后,不真任何数据,操作"放弃"命令,则会将你的数据删除,从你的第一条删起,现将其代码摘录如下,高手请来帮我改改!

哇!一身冷汗,如果做进程序,真要命!!!!

Private Sub comCancel_Click()
'放弃
Me.Undo
If Me.Recordset.EOF And Me.Recordset.BOF Then
Call comExit_Click
Exit Sub
Else
If Me.Caption = "出库-新增" Then
Me.Recordset.Delete
If Me.Recordset.EOF And Me.Recordset.BOF Then
Call comExit_Click
Me.Caption = "出库"
Exit Sub
End If
Me.Recordset.MoveNext
If Me.Recordset.EOF Then
Me.Recordset.MovePrevious
End If
Else
If IsNull(Me.Recordset.Fields(0)) Then
Me.Recordset.MoveNext
Me.Recordset.MovePrevious
End If
End If
End If
Call StateR
Me.Caption = "出库"
End Sub

[jackchina]

请改一改啊

[sunchaoyang1]

我没看过那个东东的，但我觉得你给的程序确实有问题的。
现在还不好说，你把你们的那个"使主子窗体默认状态不可修改“和上面程序牵连到的流程先介绍一下吧。
例如：（新增要做哪些事情，有哪些流程。）

[sakurako]

嗯，发现了就好

[homezj]

看不懂！