[求助]按钮公式？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

求“死亡记录窗口”中[确定保存记录]按钮代码：1、当录入数据确定保存时，删除“退休生存人员”表中的[姓名]、[性别]、[公民身份号码]相同的记录数据，并保存数据后关闭窗口；2、当未录入数据或者录入数据确定不保存时，删除当前编辑数据行后关闭窗口。

[此贴子已经被作者于2018/2/26 2:58:57编辑过]

你的逻辑本来就有问题吧？死亡登记新增按钮那里的代码这样写

Dim cr As Row = Tables("退休生存人员").current
Dim i As Integer = Tables("退休死亡人员").findrow("姓名='" & cr("姓名") & "' and 性别='" & cr("性别") & "' and 公民身份号码='" & cr("公民身份号码") & "'")
If i >= 0 Then
    Tables("退休死亡人员").Position = i
Else
    Dim nr = Tables("退休生存人员.退休死亡人员").addnew
    Tables("退休死亡人员").FindRow(nr.DataRow)
End If
Forms("死亡记录窗口").Open

撤销修改，参考这里

With Tables("退休生存人员")
    If .Current IsNot Nothing Then
        .Current.Reject()
    End If
End With

以下是引用有点甜在2018/2/26 9:25:00的发言：

你的逻辑本来就有问题吧？死亡登记新增按钮那里的代码这样写

首先感谢您的帮助！其次：如果我在“死亡记录窗口”的[确认保存记录]按钮，应该如何设置代码呢？要求：确认保存记录后点击[确认或者是]，在现有的基础上要求删除“退休生存人员”表中的[姓名]、[公民身份号码]相同的记录数据。点击[取消或者否]，直接关闭当前窗口并删除新增行，我应该如何写？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:养老保险身份认证系统.table

[此贴子已经被作者于2018/2/26 14:31:41编辑过]

Dim result As DialogResult = MessageBox.Show("是否保存该数据?保存后,退休生存人员中将删除该人的所有信息.","请确认",MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If result = DialogResult.Yes Then
    Dim cr As Row = Tables("退休死亡人员").current
    DataTables("退休生存人员").deletefor("姓名='" & cr("姓名") & "' and 性别='" & cr("性别") & "' and 公民身份号码='" & cr("公民身份号码") & "'")
Else
    Tables("退休死亡人员").current.Reject
End If
Forms("死亡记录窗口").Close()

主题：[求助]按钮公式？