内部函数传e - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

和e参数没有一点关系，根据需要返回一个值，然后判断这个值是否符合预期即可

比如返回true

Return true

然后判断

if Functions.Execute("功能权限",e,"新增") = false then

Tables("中标项目管理").AddNew()

endif

也可以返回其它任意值

比如返回有权限返回1，无权限返回0

If dr Is Nothing Then
    MessageBox.Show("你没有该权限！", "提示", MessageBoxButtons.OK)
    Return 0    '该返回那个值，不在执行后续按钮中新增的代码？
Else
    Dim Str As String = dr("功能权限")
    Dim nm = e.sender.Name
    If Str.IndexOf(nm) = -1 Then '0满足条件，-1不满足条件
        MessageBox.Show("你没有权限")
        Return 0  '该返回那个值，不在执行后续按钮中新增的代码？
    End If
End If

return 1

然后判断

if Functions.Execute("功能权限",e,"新增") = 1 then

Tables("中标项目管理").AddNew()

endif

主题：内部函数传e