以下是引用有点甜在2018/2/26 9:25:00的发言：
你的逻辑本来就有问题吧？死亡登记新增按钮那里的代码这样写
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
首先感谢您的帮助！其次：如果我在“死亡记录窗口”的[确认保存记录]按钮，应该如何设置代码呢？要求：确认保存记录后点击[确认或者是]，在现有的基础上要求删除“退休生存人员”表中的[姓名]、[公民身份号码]相同的记录数据。点击[取消或者否]，直接关闭当前窗口并删除新增行，我应该如何写？
[此贴子已经被作者于2018/2/26 14:31:41编辑过]
加好友 
发短信
Post By：2018/2/26 2:57:00 [显示全部帖子]
