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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]控件使用问题

共有3653人关注过本帖树形打印复制链接主题：[求助]控件使用问题

qingwuzu

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

加好友

发短信

等级：婴狐帖子：68 积分：590 威望：0 精华：0 注册：2015/3/28 19:58:00

[求助]控件使用问题 发帖心情

Post By：2015/3/28 21:27:00 [只看该作者]

有没有方法可以在表不可编辑的状态下打开窗口后 ComboBox 控件和 TextBox 控件都将变成只读，不可编辑状态，在表编辑状态下打开窗口后ComboBox 控件和 TextBox 控件可以正常修改呢

下载信息 [文件大小：下载次数： ]
点击浏览该文件:控件使用.rar

[此贴子已经被作者于2015/3/28 21:32:14编辑过]

qingwuzu

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

加好友

发短信

等级：婴狐帖子：68 积分：590 威望：0 精华：0 注册：2015/3/28 19:58:00

Post By：2015/3/29 0:54:00 [只看该作者]

已找到方法，谢谢

e.form.Controls("TextBox1").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox2").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox3").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox5").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox6").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox8").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox9").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox10").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox11").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox12").ReadOnly = BooleanEnum.True

e.form.Controls("TextBox13").ReadOnly = BooleanEnum.True

这个代码还可以简洁一点嘛

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/29 9:10:00 [只看该作者]

For Each c As object In e.Form.Controls
    If c.Gettype.name Like "*TextBox*" OrElse c.Gettype.Name Like "*ComboBox*" Then
        c.Readonly = BooleanEnum.True
    End If
Next

wuzuqing

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

加好友

发短信

等级：婴狐帖子：20 积分：170 威望：0 精华：0 注册：2015/3/18 10:08:00

Post By：2015/3/29 10:08:00 [只看该作者]

e.Form.Controls("TextBox1").Text = Tables("员工资料").Current("员工代码")

e.Form.Controls("TextBox2").Text = Tables("员工资料").Current("姓名")

e.Form.Controls("TextBox3").Text = Tables("员工资料").Current("职务")

e.Form.Controls("TextBox5").Text = Tables("员工资料").Current("备注")

e.Form.Controls("TextBox6").Text = Tables("员工资料").Current("身份证号码")

e.Form.Controls("TextBox8").Text = Tables("员工资料").Current("电话")

e.Form.Controls("TextBox9").Text = Tables("员工资料").Current("手机")

e.Form.Controls("TextBox10").Text = Tables("员工资料").Current("EMail")

e.Form.Controls("TextBox11").Text = Tables("员工资料").Current("邮政编码")

e.Form.Controls("TextBox12").Text = Tables("员工资料").Current("住址")

e.Form.Controls("TextBox13").Text = Tables("员工资料").Current("拼音码")

这样的代码的简洁方式呢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/29 10:13:00 [只看该作者]

直接绑定表不是更好？

http://www.foxtable.com/help/topics/2263.htm

wuzuqing

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

加好友

发短信

等级：婴狐帖子：20 积分：170 威望：0 精华：0 注册：2015/3/18 10:08:00

Post By：2015/3/29 11:29:00 [只看该作者]

那如果要新增行在没有保存之前不显示在表上,保存后才能显示怎么写呢

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/29 11:32:00 [只看该作者]

Dim ctrls As String() = {"TextBox1", "TextBox2"}
Dim cnames As String() = {"员工代码", "姓名"}
For i As Integer = 0 To ctrls.length - 1
e.Form.Controls(ctrls(i)).Text = Tables("员工资料").Current(cnames(i))
Next

998168

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

加好友

发短信

等级：童狐帖子：241 积分：2208 威望：0 精华：0 注册：2012/11/21 0:48:00

Post By：2015/3/30 4:33:00 [只看该作者]

以下是引用有点甜在2015/3/29 11:32:00的发言：
Dim ctrls As String() = {"TextBox1", "TextBox2"}
Dim cnames As String() = {"员工代码", "姓名"}
For i As Integer = 0 To ctrls.length - 1
e.Form.Controls(ctrls(i)).Text = Tables("员工资料").Current(cnames(i))
Next

甜老师，这个代码写返了吧？ Tables("员工资料").Current(cnames(i)) ＝ e.Form.Controls(ctrls(i)).Text 应该是这样的啊！

Bin

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

加好友

发短信

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

Post By：2015/3/30 8:33:00 [只看该作者]

是的,你自己改一下即可

998168

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

加好友

发短信

等级：童狐帖子：241 积分：2208 威望：0 精华：0 注册：2012/11/21 0:48:00

Post By：2015/3/30 22:25:00 [只看该作者]

哈哈， Bin 版主我不是当事人哦！

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

总数 11 1 2 下一页

主题：[求助]控件使用问题