此主题相关图片如下：qq截图20140322093040.png

保存代码是:

Dim str() As String = {"请假原因","开始日期","请假天数"}
For Each s As String In str
    If e.Form.Controls(s).Value = Nothing Then
        MessageBox.Show("请输入:【" & s & "】 !","教工请假", MessageBoxButtons.OK,MessageBoxIcon.Information)
        e.Form.Controls(s).Select()
        Return
    End If
Next
Dim dr As DataRow = DataTables("教工请假").AddNew()
For i As Integer = 1 To 8
    If e.Form.Controls("RadioButton" & i).Checked Then
        dr("请假类型") = e.Form.Controls("RadioButton" & i).Text
        Exit For
    End If
Next
For Each s As String In str
    dr(s) = e.Form.Controls(s).Value 
    dr.Save()
Next

怎样加提示:你的假期从“开始日期”开始，“开始日期-请假天数”结束。请指教代码，谢谢

出现错误

此主题相关图片如下：qq截图20140322100449.png

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:请假.zip

dim d1 as date = e.form.controls("开始日期").Value
messagebox.show("你的假期从" & d1 & "开始," & d1.adddays(-e.form.controls("请假天数").Value) & "结束.","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
怎样把这段代码加入确定按钮里,电击 是 新增并保存,电击 否 不新增和不保存

谢谢Bin老师