窗口事件上，我搞不定，求代码 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 窗口事件上，我搞不定，求代码

共有2638人关注过本帖树形打印复制链接主题：窗口事件上，我搞不定，求代码

wbx816xbxb

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

等级：婴狐帖子：15 积分：215 威望：0 精华：0 注册：2017/10/22 17:52:00

窗口事件上，我搞不定，求代码 发帖心情

Post By：2018/1/15 20:46:00 [只看该作者]

各位老师，

下载信息 [文件大小：下载次数： ]
点击浏览该文件:窗口事件求助.rar

！！！我创建了 “会员表” 并创建了“录入窗口”

想实现：只有经理可以在录入窗进行删除、修改已经保存的数据，录入员只能对新增行或没有保存的数据进行修改或删除。

录入员对已经保存的数据无权修改和删除，

《现在的状态是经理也不能对已经保存的数据进行修改》

如何实现？敬请帮助！！！

（录入员和经理密码均是888）

有点蓝

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

等级：超级版主帖子：113775 积分：579448 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2018/1/15 20:59:00 [只看该作者]

控件enter事件

Dim r As Row = Tables("会员表").Current

If r IsNot Nothing Then

If User.Name <> "经理" AndAlso r.DataRow.RowState <> DataRowState.Added Then

e.Sender.Enabled = False

Else

e.Sender.Enabled = True

End If

wbx816xbxb

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

等级：婴狐帖子：15 积分：215 威望：0 精华：0 注册：2017/10/22 17:52:00

Post By：2018/1/15 21:07:00 [只看该作者]

谢谢！！！

主题：窗口事件上，我搞不定，求代码