- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 控件可用不可用的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=50354)
-- 发布时间：2014/5/5 15:00:00
-- 控件可用不可用的问题
在录入窗口中，有一列是类型列（下拉列表框），类型列如果选择购置，那么所有控件能够正常录入，如果选择的是调拨，则使用部门和使用人员不能输入，而在下面出现一个table1的控件（绑定的表），在该绑定的表中输入数据。这个如何实现。
-- 发布时间：2014/5/5 15:02:00
--
请上例子,简单的控制 控件的Enabled 属性而已.
-- 发布时间：2014/5/5 15:21:00
--
当类型选择购置的时候，page2中隐藏Table1，当类型选择调拨的时候，使用部门和使用人员的文本框不可用，且page2中出现table1，能够输入数据。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:项目1.foxdb |
[此贴子已经被作者于2014-5-5 15:23:26编辑过]
-- 发布时间：2014/5/5 15:25:00
--
纸上不谈兵,提问最好上例子
代码大概如下 ,在Textchanged事件
if e.sender.text="购置" then
e.form.controls("Table1").Visible=false
end if
if e.sender.text="调拨" then
e.form.controls("Table1").Visible=true
e.form.controls("使用人员").Enabled =False
end if
-- 发布时间：2014/5/5 15:29:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:项目1.foxdb |
-- 发布时间：2014/5/5 15:33:00
--
控件的TextChanged事件，代码。
If e.sender.text = "调拨" Then
e.form.controls("Table1").Visible = True
e.form.controls("TextBox2").Enabled = False
e.form.controls("TextBox3").Enabled = False
Else If e.Sender.Text = "购置" Then
e.form.controls("Table1").Visible = False
e.form.controls("TextBox2").Enabled = True
e.form.controls("TextBox3").Enabled = True
Else
e.form.controls("Table1").Visible = True
e.form.controls("TextBox2").Enabled = True
e.form.controls("TextBox3").Enabled = True
End If
-- 发布时间：2014/5/5 15:34:00
--
谢谢bin老师。
-- 发布时间：2014/5/5 15:48:00
--
e.Form.Controls("Table1").Visible = (e.Sender.Text = "调拨")
e.Form.Controls("TextBox2").Enabled = Not (e.Sender.Text = "调拨")
e.Form.Controls("TextBox3").Enabled = Not (e.Sender.Text = "调拨")