主题：CheckBox根据窗口中的TextBox值为不可用和可用？如何实现

CheckBox根据窗口中的TextBox值为不可用和可用？

当TextBox为空值时，CheckBox为不可用

当TextBox不为空值时，CheckBox为可用

Dim A1 As String = e.Form.Controls("AAA").Value
If A1 = ""
e.Form.Controls("BB").Enabled = False
End If

上述代码放入AfterLoad事件中时，发现TextBox还未来得及加载绑定的字段时，就已经执行了

如何解决?

谢谢

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:表间判断.table

代码放在TextBox的valuechanged事件中

Dim A1 As String = e.Form.Controls("AAA").Value
If A1 = ""
    e.Form.Controls("BB").Enabled = False

Else

    e.Form.Controls("BB").Enabled = True
End If

楼主:这个应不好放在Afterload事件中,一个放在文本框的TEXTCHANGED中

Dim a1 As WinForm.TextBox = e.Form.Controls("AAA")
Dim bb As WinForm.CheckBox = e.Form.Controls("BB")
If A1.text >""
bb.Enabled = True
End If

一个是放在选择框的ENTER事件中

Dim A1 As WinForm.TextBox = e.Form.Controls("AAA")
Dim bb As WinForm.CheckBox = e.Form.Controls("BB")
If A1.text = ""
bb.Enabled = False
Else
bb.Enabled = True
End If

e.Form.Controls("CheckBox1").Checked = e.Sender.Value >""

代码放在TextBox的valuechanged事件中

要出错呀

测试没有问题：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目304.table