主题：[求助]如何实现工作流这样的授权？

你要检查什么权限，红色部分就写什么。

如果要检查多个权限：

 

Dim dt As Date = Date.Today
Dim us As String = "User.name"
Dim dr As DataRow = DataTables("屠宰检疫用户授权").Find("用户名 = '" & us & "' And 日期 = #" & dt & "#")
If dr IsNot Nothing Then
    If dr("权限1") = True  And dr("权限2") = True And dr("权限3") = True Then
        Messagebox.show("恭喜,有权限!")
    Else
        Messagebox.show("兄弟,别乱来!")
    End If
Else
        Messagebox.show("嘿嘿,名单中没有你哦")
End If

信息框怎么按确定，关不掉？

看了一下代码,不应该会出现这种情况啊 你上个例子看看

楼主，你可能将代码写在错误的位置，例如写在PrepareEdit事件中，就会关不掉。

狐爸，我确实写在PrepareEdit事件中，哪应该写在哪里？

写在afterEdit里面吧

StartEdit事件：

http://www.foxtable.com/help/topics/0615.htm

 

红色代码哪里有问题？

Dim dt As Date = Date.Today
Dim us As String = User.name
Dim dr As DataRow = DataTables("屠宰检疫用户授权").Find("用户名 = '" & us & "' And 日期 = #" & dt & "#")
If dr IsNot Nothing Then
    If dr("入场监督查验") = True And dr("检疫申报") = True And dr("宰前检查") = True And dr("同步检疫") = True Then
        Messagebox.show("恭喜,有权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    Else
        Messagebox.show("兄弟,别乱来!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
    End If
Else
        Messagebox.show("嘿嘿,名单中没有你哦","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If

上个例子吧，根据例程中自动流转二修改，原例程中是以用户为控制权限的，比如，张三只能操作第一、第二列，李四操作第三、第四列等，这样比较死板。

我想要达到预先设定某天、某人、某权限，到那一天某人就具备指定的权限。这样可以做到指定的日期，可以操作某项工作，可以轮班工作，具有很大的灵活性。在这个列程中，A权限可以操作第一、第二列，B权限可以操作第三、第四列，C权限可以操作第五、第六列，D权限可以操作第七列、第八列。怎样可以实现？

前面有人说很容易，按照他们的提示和帮助怎么都实现不了，现请大家帮忙，谢谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:自动流程1.foxdb

看StartEdit事件中的代码：

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目930.foxdb