主题：[求助]窗口中的Label绑定数据表的列，隐藏时值传递不到自定义函数中

窗口中的Label绑定数据表的列，隐藏时的值传递不到自定义函数中，提示“”无法转换成int整数，label不隐藏时正常，这个如何解决？
此主题相关图片如下：qq截图20161029113842.png


此主题相关图片如下：qq图片20161029113755.jpg

我的代码是

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 & "'")

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

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


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

这三个label全部是绑定到列，未用代码。

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

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

点击浏览该文件:管理项目2.rar

附件看一下，刚打开项目时label的值显示为空，用代码显示再隐藏一次label的值的才可以显示。这是怎么会事哪？