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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → textbox控件权限

共有6193人关注过本帖树形打印复制链接主题：textbox控件权限

ericsky

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

等级：小狐帖子：363 积分：3831 威望：0 精华：0 注册：2012/4/16 20:20:00

Post By：2013/4/22 13:48:00 [显示全部帖子]

窗口事件afterload中设置代码：

if tables（"xxx").current（”用户名“）<> user.name then

e.form.controls("textbox").readonly = BooleanEnum.True '设置只读属性

end if

ericsky

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

等级：小狐帖子：363 积分：3831 威望：0 精华：0 注册：2012/4/16 20:20:00

Post By：2013/4/22 14:09:00 [显示全部帖子]

在表事件 currentchanged 设置：

If e.Table.Rows.count > 0 Then

If Forms("录入").opened Then

If e.Table.current("用户名") <> user.name Then

forms("录入").controls("textbox5").ReadOnly =BooleanEnum.True

Else

forms("录入").controls("textbox5").ReadOnly =BooleanEnum.False

End If

主题：textbox控件权限