以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  窗口事件上,我搞不定,求代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113425)

--  作者:wbx816xbxb
--  发布时间:2018/1/15 20:46:00
--  窗口事件上,我搞不定,求代码
各位老师,
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:窗口事件求助.rar

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

想实现:只有经理可以在录入窗进行删除、修改已经保存的数据,录入员只能对新增行或没有保存的数据进行修改或删除。
        录入员对已经保存的数据无权修改和删除,
       《现在的状态是经理也不能对已经保存的数据进行修改》
       如何实现?敬请帮助!!! 
     (录入员和经理密码均是888)

--  作者:有点蓝
--  发布时间:2018/1/15 20:59:00
--  
参考:http://www.foxtable.com/webhelp/scr/2342.htm

控件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
End If

--  作者:wbx816xbxb
--  发布时间:2018/1/15 21:07:00
--  
谢谢!!!