去掉控件enter事件
窗口afterload
Dim r As Row = Tables("表A").Current
If r.IsNull("第一列") = False
If r Is Nothing OrElse r.DataRow.RowState = DataRowState.Unchanged AndAlso r("是否允许编辑") = True Then
e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.True
Else
e.Form.Controls("TextBox1").ReadOnly = BooleanEnum.False
End If
End If