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

呵呵，这有什么难度呢？

根据姓名和日期，找出某人在某日的角色，很简单的一个查找问题啊。

参考:

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

具体得看这个表的结构。

不用sql语句，用foxtable的查找楼主会老理解一点：

Dim dt As Date = #6/20/2013#
Dim us As String = "张三"
Dim dr As DataRow = DataTables("授权表").Find("用户名 = '" & us & "' And 日期 = #" & dt & "#")
If dr IsNot Nothing Then
    If dr("权限名称") = True Then
        Messagebox.show("恭喜,有权限!")
    Else
        Messagebox.show("兄弟,别乱来!")
    End If
Else
        Messagebox.show("嘿嘿,名单中没有你哦")
End If

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

如果要检查多个权限：

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事件中，就会关不掉。

StartEdit事件：

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