我的代码是

Dim oid As Integer = e.Form.Controls("OperID").text
Dim did As Integer = e.Form.Controls("DeptID").text
If Functions.Execute("scShouQuan",MainTable.Name,oid,did)
    Dim Result As DialogResult
    Result = MessageBox.Show("确定要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)        
    Else
        Return
    End If
Else
    MessageBox.show("没有删除权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

我的自定义函数代码如下

For Each dr As DataRow In DataTables("FTtabQX").SQLSelect("表名 = \'" & args(0) & "\' and S可删除 = 1")
    If dr("S数据填报者") = 1 Then
        Return True
    Else If dr("S数据填报者") = 2 Then
        If _OperID = args(1) Then
            Return True
        End If
    Else If dr("S数据填报者") = 3 Then
        Dim val As String
        Dim cmd As New SQLCommand
        cmd.C
        cmd.CommandText = "Select F4747 Fro m {tabDIYTable751} Where F4752 = \'" & args(2) & "\'"
        val  = cmd.ExecuteScalar()
        For Each bmjs As String In _UserRGroups
            Dim bm() As String = bmjs.Split(".")
            If bm(0) = val Then
                Return True
            End If
        Next
    Else
        Return False
    End If
Next

出错按钮的完整代码如下

Dim oid As Integer = e.Form.Controls("OperID").text
Dim did As Integer = e.Form.Controls("DeptID").text
If Functions.Execute("scShouQuan",MainTable.Name,oid,did)
    Dim Result As DialogResult
    Result = MessageBox.Show("确定要删除吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If Result = DialogResult.Yes Then
        Try
            Connections("wjexcel").BeginTransaction() \'开始事务
            Dim cmd As new SQLCommand
            cmd.C
            cmd.CommandText = "Delete Fro m {tabDIYTable281} Where [ID] = " & CInt(e.Form.Controls("ID").text)
            cmd.ExecuteNonQuery
            cmd.CommandText = "Delete Fro m {tabDIYTable282} Where [ID] = " & CInt(e.Form.Controls("ID").text)
            cmd.ExecuteNonQuery
            Connections("wjexcel").Commit \'提交事务,所有操作生效
        Catch ex As Exception \'如果出错
            Connections("wjexcel").Rollback() \'回滚事务,撤销所有操作
        End Try
        \'************刷新***********
        Dim cxbn As WinForm.Button = e.Form.Controls("撤销")
        cxbn.PerformClick()       
    Else
        Return
    End If
Else
    MessageBox.show("没有删除权限!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

_OperID和列F4752 都是整数型，e.Form.Controls("ID").text值对应见下图。这三个label不隐藏时，是不会报错的，只有隐藏时报错。

此主题相关图片如下：qq图片20161029130958.png

我用的代码如下

MessageBox.Show("OperID = \'" & e.Form.Controls("OperID").text & "\' and DeptID = \'" & e.Form.Controls("DeptID").text & "\' and ID = \'" & e.Form.Controls("ID").text & "\'")

隐藏与未隐藏的弹窗见图片