- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- CheckBox根据窗口中的TextBox值为不可用和可用？如何实现 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=16926)
-- 发布时间：2012/2/27 20:47:00
-- 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 |
-- 发布时间：2012/2/27 21:23:00
--
代码放在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
-- 发布时间：2012/2/27 21:31:00
--
楼主:这个应不好放在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
-- 发布时间：2012/2/27 21:32:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:表间判断.table |
-- 发布时间：2012/2/27 22:50:00
--
谢谢
-- 发布时间：2012/2/28 7:50:00
--
e.Form.Controls("CheckBox1").Checked = e.Sender.Value >""
代码放在TextBox的valuechanged事件中
-- 发布时间：2012/2/28 22:35:00
--
|
e.Form.Controls("CheckBox1").Checked = e.Sender.Value >""
代码放在TextBox的valuechanged事件中 |
要出错呀
-- 发布时间：2012/2/29 9:35:00
--
|
e.Form.Controls("CheckBox1").Checked = e.Sender.Value >""
代码放在TextBox的valuechanged事件中 |
要出错呀
-- 发布时间：2012/2/29 10:03:00
--
我测试了上来的,没有问题呀,怎么会出错呢?
-- 发布时间：2012/2/29 10:04:00
--
测试没有问题：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:管理项目304.table |