- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]按钮公式？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114907)
-- 发布时间：2018/2/26 2:57:00
-- [求助]按钮公式？
求“死亡记录窗口”中[确定保存记录]按钮代码：1、当录入数据确定保存时，删除“退休生存人员”表中的[姓名]、[性别]、[公民身份号码]相同的记录数据，并保存数据后关闭窗口；2、当未录入数据或者录入数据确定不保存时，删除当前编辑数据行后关闭窗口。
-- 发布时间：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 9:26:00
--
撤销修改，参考这里
With Tables("退休生存人员")
If .Current IsNot Nothing Then
.Current.Reject()
End If
End With
-- 发布时间：2018/2/26 14:31: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
首先感谢您的帮助！其次：如果我在“死亡记录窗口”的[确认保存记录]按钮，应该如何设置代码呢？要求：确认保存记录后点击[确认或者是]，在现有的基础上要求删除“退休生存人员”表中的[姓名]、[公民身份号码]相同的记录数据。点击[取消或者否]，直接关闭当前窗口并删除新增行，我应该如何写？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:养老保险身份认证系统.table |
-- 发布时间：2018/2/26 15:50:00
--
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()