主题：自动输入

请教老师：

If Tables("业务管理窗口_Table1").Current.Isnull("合同评审日期") = False Then
    MessageBox.Show("已经确认, 请不要重复操作!")
Else
    If MessageBox.Show("确认后将不能更改, 要确认吗?","请确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question) =DialogResult.OK Then
        If Connections.Contains("我的SQL服务器数据库") Then
            Dim cmd As New SQLCommand
            Dim dt As Date
            cmd.C

            cmd.CommandText = "Select GetDate()"
            dt = cmd.ExecuteScalar()
            Tables("业务管理窗口_Table1").Current("合同评审日期") = dt '将日期设为当天日期.
        Else
            Tables("业务管理窗口_Table1").Current("合同评审日期") = Date.Now '将日期设为当天日期.
        End If
        Tables("业务管理窗口_Table1").Current("合同评审人") = User.Name '设为当前用户
        Tables("业务管理窗口_Table1").Current("流程记录") = Tables("业务管理窗口_Table1").Current("流程记录") & Date.Now & User.Name & ": " & e.Form.Controls("Label1").text & "; " & Chr(13) & Chr(10)
    End If
End If

按下按钮后，偶尔会出现日期或用户没有输入的现象，即“日期”格或“用户”格为空。