主题：关于不同用户删除指定的行？

可以 判断角色用  User.IsRole( e.Datarow("分区"))

此主题相关图片如下：360截图20140508164406859.jpg

在beforeDeleteDatarow事件，写代码

 

If e.Datarow("分区") <> User.Group Then

    msgbox("领导说了，你不能乱来！")

    e.Cancel = True

End If

 

 

在datarowDeleted事件，写代码

 

msgbox("删除成功")

老师，如何将这两段代码，连在一起呢？？

没必要弄的这么复杂，消息框蹦来蹦去，不烦死人么？

首先，表不能编辑，

然后点击一个选择按钮，

按钮的代码先按用户所属区域筛选了数据，然后使表可以编辑。

这样，用户不就只能编辑自己的行了吗？

编辑完毕，保存数据，显示所有数据，表又不能编辑了。

If user.name <> User.Group Then
    msgbox("你对此文件没有修改保存的权限")
Else
    If e.Form.Controls("TextBox1").text > "" Then
        Tables("个案申请").current("内容")=e.Form.Controls("TextBox1").text
        Tables("个案申请").current.save()
        Vars("编辑器校验")=10
        MessageBox.Show("保存成功")
    Else
        MessageBox.Show("不允许空文档保存")
    End If
End If