请教老师，Sender不大了解怎么使用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教老师，Sender不大了解怎么使用

共有2052人关注过本帖树形打印复制链接主题：请教老师，Sender不大了解怎么使用

wakai

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

等级：小狐帖子：366 积分：3522 威望：0 精华：0 注册：2016/5/25 21:31:00

请教老师，Sender不大了解怎么使用 发帖心情

Post By：2018/4/18 17:35:00 [显示全部帖子]

If Tables("包材申购窗体_包材申请表").Current IsNot Nothing Then

Dim ctl As WinForm.Control = e.Sender

Dim r As Row = Tables("包材申购窗体_包材申请表").Current

If r("采购进度") = "申请中" Then

ctl.ReadOnly = BooleanEnum.False '允许编辑

Else

ctl.ReadOnly = BooleanEnum.True '禁止编辑

End If

以上代码执行后，将窗口所有控制都限制了，如要将名称为“商品ID”，“品牌”控件能正常编辑不受控制要如何写

wakai

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

等级：小狐帖子：366 积分：3522 威望：0 精华：0 注册：2016/5/25 21:31:00

Post By：2018/4/19 11:14:00 [显示全部帖子]

谢谢甜老师，如果控件名比较多怎么简化下代码，如

If ctl.name <> "查询订单明细ID" AndAlso ctl.name <> "品牌" AndAlso ctl.name <> "查询商品ID" AndAlso ctl.name <> "查询名称" AndAlso ctl.name <> "查询进度" Then

主题：请教老师，Sender不大了解怎么使用