红袍老师,我想也不可能,在窗口的全局事件(Enter),我加入了下面一段代码就不行了。我不明白,属性设置应该是最高的权限啊。
Dim r As Row = Tables("登记总表").current
Dim km As WinForm.CheckBox = e.Form.Controls("CheckBox1")
Dim cs As WinForm.CheckBox = e.Form.Controls("CheckBox2")
Dim sc As WinForm.CheckBox = e.Form.Controls("CheckBox3")
If r IsNot Nothing Then
For Each ctl As WinForm.Control In e.Form.Controls
If r("确认收费") = True Then
km.ReadOnly = BooleanEnum.False
sc.ReadOnly = BooleanEnum.False
cs.ReadOnly = BooleanEnum.False
ctl.ReadOnly = BooleanEnum.True
Else
ctl.ReadOnly = BooleanEnum.False
End If
Next
End If