判断名称
Dim ctl As WinForm.Control = e.Sender
If ctl.Name <> "TextBox1" AndAlso ctl.Name <> "TextBox2" Then
If Tables("表A").Current.DataRow.SQLGetValue("确认").Gettype.Name = "DBNull" Then '确认是空值
ctl.ReadOnly = BooleanEnum.False '可以编辑
Else
ctl.ReadOnly = BooleanEnum.True '禁止编辑
End If
End If
[此贴子已经被作者于2015/5/26 15:22:05编辑过]