主题：关于文本控件只读与不只读

红袍老师，这个窗口里的“新增”按钮，在用户单击后，上面的文本控件才恢复可用状态，如果没有单击，为只读状态。我写的如下代码貌似没有用：

此主题相关图片如下：船只报港.png

直接写

 

不懂这个代码，红袍老师，能解释下吗？写到哪里去？

现在按钮click事件

红袍老师，我就想实现不单击新增按钮时，所有的文本控件都是只读状态，单击后，文本控件可以编辑输入内容

afterLoad事件

 

e.form.controls("ComboBox1").ReadOnly= BooleanEnum.true

 

Clik事件

 

e.form.controls("ComboBox1").ReadOnly = BooleanEnum.False

换个思路，代码不变，移到车号1和吨位1的Enter事件中。
http://www.foxtable.com/webhelp/scr/0734.htm

或者写在全局的Enter事件中，代码可以改为：
Dim val As String
Dim dr As DataRow = Tables("FAJHB").Current.DataRow
If e.sender.name = "车号1" OrElse e.Sender.Name = "吨位1" Then
    If val = dr.SQLGetValue("过磅1")= True Then
        e.form.controls("车号1").ReadOnly = BooleanEnum.True
        e.Form.controls("吨位1").ReadOnly = BooleanEnum.True
    Else
        e.form.controls("车号1").ReadOnly = BooleanEnum.False
        e.Form.controls("吨位1").ReadOnly = BooleanEnum.False
    End If
End If