主题：[求助窗体按钮事件代码（已上传测试实例）

'以下"RadioButton1"(单选框)选择"离职原因"
Dim Ly1 As String    
If e.Form.Controls("RadioButton1").Checked = True   '如果选择了"到龄退休"
    Ly1 = "到龄退休"   
End If
If e.Form.Controls("RadioButton2").Checked = True   '如果选择了"个人辞职"
    Ly1 = "个人辞职"
End If
If e.Form.Controls("RadioButton3").Checked = True   '如果选择了"公司辞退"
    Ly1 = "公司辞退"
End If

'以下选择"离职时间"
Dim Ls1 As String         
With e.Form.Controls("DateTimePicker1")
    Ls1 = .Value
End With

'以下将当前选定行从"员工信息"表复制到"历史信息"表,同时并将变量Ly1和Ls1的值在不打开"历史信息"表的情况下写入"历史信息"表的"离职原因"?"离职时间"列中
Dim cr As Row = Tables("员工信息").current
Dim ndr As DataRow = DataTables("历史信息").addnew                                            '指定数据接收表
ndr("姓名") = cr("姓名")
ndr("性别") = cr("性别")
ndr("民族") = cr("民族")
ndr("籍贯") = cr("籍贯")
ndr("离职原因") = ly1
ndr("离职时间") = ls1

cr.Delete      '删除选定行

Forms("确认离职").close    '关闭窗口

参考代码

'以下"RadioButton1"(单选框)选择"离职原因"
Dim Ly1 As String
If e.Form.Controls("RadioButton1").Checked = True   '如果选择了"到龄退休"
    Ly1 = "到龄退休"
End If
If e.Form.Controls("RadioButton2").Checked = True   '如果选择了"个人辞职"
    Ly1 = "个人辞职"
End If
If e.Form.Controls("RadioButton3").Checked = True   '如果选择了"公司辞退"
    Ly1 = "公司辞退"
End If

'以下选择"离职时间"
Dim Ls1 As String
With e.Form.Controls("DateTimePicker1")
    Ls1 = .Value
End With

'以下将当前选定行从"员工信息"表复制到"历史信息"表,同时并将变量Ly1和Ls1的值在不打开"历史信息"表的情况下写入"历史信息"表的"离职原因"?"离职时间"列中
Dim cr As Row = Tables("员工信息").current
Dim ndr As DataRow = DataTables("历史信息").addnew                                            '指定数据接收表
For Each c As Col In cr.Table.Cols
    If ndr.DataTable.DataCols.Contains(c.name) Then
        ndr(c.name) = cr(c.name)
    End If
Next
ndr("离职原因") = ly1
ndr("离职时间") = ls1

cr.Delete      '删除选定行

Forms("确认离职").close    '关闭窗口