主题：自动输入

请教老师：

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

 

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

没点OK吧.  调试一下看看代码是否执行到.

关键是该现象“偶尔”出现，不是每次都有，频率还不高。

调试一下.看看出现的时候是否执行到里面的代码, 调试分析一下就知道是什么原因了

因为类似这二个列都设为不可编辑状态，在操作不正常后，修改困难。

另外有没有办法将表格一次性设为可编辑，使设为不可编辑的列变为可编辑，不必一个一个地去修改每个列？

遍历所有列设置