输入 返回时间 后,

1、如果 请假类型 是病假打开增加照片窗口，增加照片后 保存。

2、增加提示 是否增加照片,如果电击 是 打开增加照片窗口,增加照片后 保存，如果电击 否 不打开增加照片窗口,直接保存。

请教代码  谢谢！

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

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

Dim kjmc() As String

Dim kjmcjh As String
    kjmcjh = "返回时间" \'控件名称集合
    kjmc = kjmcjh.split(",")
    For i As Integer = 0 To kjmc.Length - 1
        If e.Form.Controls(kjmc(i)).text = "" Then
            MessageBox.Show("请输入:【" & kjmc(i) & "】 !","中途请假", MessageBoxButtons.OK,MessageBoxIcon.Question)
       Return
     End If
   If e.Form.Controls("返回时间").text <> "" Then
    Dim Result As DialogResult
    Result = MessageBox.Show("是否增加照片?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then

        Forms("增加照片").Show
    End If    
End If 
            e.Form.Controls(kjmc(i)).Select()      
    Next

这样已解决第二问题.

如果 请假类型 是病假打开增加照片窗口，增加照片后 保存。请Bin老师指点