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

哈哈，这个问题自行解决了：

在BeforeAddDataRow中：

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 AndAlso dr("A权限") = True Then
    e.Cancel=False
   Else
    e.cancel=True
End If

把And 替换成AndAlso,就OK了。