[求助] - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]

共有4903人关注过本帖树形打印复制链接主题：[求助]

北冰洋

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：318 积分：3436 威望：0 精华：0 注册：2012/4/24 14:47:00

[求助]

Post By：2013/5/13 9:48:00 [只看该作者]

求助窗口中如何实现当审核打对勾的时候，输入里不可编辑？
图片点击可在新窗口打开查看

此主题相关图片如下：(f9@``c~fb2yw5m`_a_}f1s.jpg

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2013/5/13 9:51:00 [只看该作者]

在控件的CHeckCHanged事件中判断CHECK属性如果是TRUN 就让文本框不可编辑.

如果不懂就上例子.

其实帮助里都有对应内容的.

北冰洋

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：318 积分：3436 威望：0 精华：0 注册：2012/4/24 14:47:00

Post By：2013/5/13 9:55:00 [只看该作者]

在哪个事件写什么代码呢谢谢。。

delxkjhgq

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：153 积分：1013 威望：0 精华：0 注册：2012/11/6 14:55:00

Post By：2013/5/13 10:02:00 [只看该作者]

上楼说的很明白了啊，在Checkbox1控件值发生变化（CHeckCHanged中写代码）时执行

狐狸爸爸

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251048 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2013/5/13 16:01:00 [只看该作者]

最好在输入款的Enter事件中写代码：

If e.Form.Controls("CheckedBox1").checked Then
e.Sender.ReadOnly = BooleanEnum.True
Else
e.Sender.ReadOnly = BooleanEnum.False
End If

北冰洋

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：318 积分：3436 威望：0 精华：0 注册：2012/4/24 14:47:00

Post By：2013/5/18 21:28:00 [只看该作者]

以下是引用狐狸爸爸在2013-5-13 16:01:00的发言：
最好在输入款的Enter事件中写代码：

If e.Form.Controls("CheckedBox1").checked Then
e.Sender.ReadOnly = BooleanEnum.True
Else
e.Sender.ReadOnly = BooleanEnum.False
End I

各位老师上面的代码在审核那里改成文本框的话，代码怎么样修改呢？请指教

此主题相关图片如下：4lnz(h~cx9fcbtsp68zvf7.jpg

XYT

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：六尾狐帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00

Post By：2013/5/20 8:49:00 [只看该作者]

With Forms("窗口3").Controls("textbox1")
    If .Value = "" Then
        e.Sender.ReadOnly = BooleanEnum.False
Else
    e.Sender.ReadOnly = BooleanEnum.True
End If
End With

下一主题 >> << 上一主题

主题：[求助]