以正确格式输入字符串。 VB.net - 新手所以需要帮助

Question

我的页面和我正在处理的代码存在一些问题。请看代码：

Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        Dim dtTable As DataTable = Nothing
        Dim intConnectionId As Integer = 0

        If  Page.IsPostBack Then

            ' Get user data from session
            With HttpContext.Current

                intConnectionId = CInt(result.Value)
            End With
        End If

        ' Remove connection
        modConnections.Delete(intConnectionId)

        ' Clear desks attahced to connection
        modDeskText.ClearUserDesk(intConnectionId)

        Using sqlCommand As New SqlCommand
            With sqlCommand
                .CommandText = "usp_connectsdetailedlist"
                .CommandType = CommandType.StoredProcedure
            End With

            Execute(sqlCommand, dtTable)
        End Using

        With Rep1
            .DataSource = dtTable.DefaultView
            .DataBind()
        End With

        If Not IsNothing(dtTable) Then
            dtTable.Dispose()
        End If

    End Sub

[FormatException: Input string was not in a correct format.]
   Microsoft.VisualBasic.CompilerServices.Conversions.ParseDouble(String Value, NumberFormatInfo NumberFormat) +213
   Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value) +90

[InvalidCastException: Conversion from string "" to type 'Integer' is not valid.]
   Microsoft.VisualBasic.CompilerServices.Conversions.ToInteger(String Value) +238
   frmConnects2.Page_Load(Object sender, EventArgs e) in D:\Source Code\PTS\PTS Online .NET - Copy\PTS Online .NET\PTS Online .NET stu\frmConnects2.aspx.vb:17
   System.Web.UI.Control.OnLoad(EventArgs e) +95
   System.Web.UI.Control.LoadRecursive() +59
   System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint, Boolean includeStagesAfterAsyncPoint) +678

上线：

intConnectionId = CInt(result.Value) 

我收到上述错误。无论我做什么，我都无法将数据转换为我需要工作的格式。我现在明白这与右侧代码无关。

我的目标是从表中获取数据，放入文本框 (<input type="text" id="result" runat="server" />) id="result"，然后使用 SQL 中选择的记录的“id”删除连接。见下表：

<ItemTemplate> 
                        <tr class="<%# ReturnValuesAsColor(Eval("online"), Eval("mobile"), Eval("server_proc"))%>">
                        <td><%# Eval("id").ToString%></td>
                        <td><%# Eval("user_id").ToString%></td>
                        <td><%# Eval("user_name").ToString%></td>
                        <td><%# Eval("workstation_name").ToString%></td>
                        <td><%# Eval("ip_address").ToString%></td>
                        <td><%# Eval("connect_date").ToString%></td>
                        <td><%# Eval("refresh_date").ToString%></td>
                        <td><%# Eval("app_ver").ToString%></td>
                        <td><%# Eval("app_date").ToString%></td>
                        <td><%# CBool(Eval("get_messages_flag")).ToString%></td>
                        <td><%# FixNumbers(Eval("message_type_flags"))%></td>
                        <td><%# Eval("online").ToString%></td>
                        <td><%# Eval("mobile").ToString%></td>
                        <td><%# Eval("group_name").ToString%></td>
                        <td><%# Eval("server_proc").ToString%></td>
                        <td><input type="submit" class="ui-button ui-widget ui-state-default ui-corner-all" value="delete connection" onclick="clearText(result); CopyId(<%# Eval("id").ToString%>);" /></td>
                        </tr>

                    </ItemTemplate>

使用的JS：

<script> 
                function CopyId(num) {
                    var txt = document.getElementById("<%= result.ClientID%>").value;
                    txt = num;
                    document.getElementById("<%= result.ClientID%>").value = txt;
                    }
 </script>

抱歉，如果我错过了任何内容或缺少信息。非常感谢任何帮助。

Answer 1

在 VB 中，您需要检查您的变量以确保它不为空、null 和空，并且不包含任何非数字字符。我也会使用 CTYPE 和 Trim。仅当字符串包含数值时，转换才会起作用。如果您在填充字符串时遇到问题，那么您需要检查填充它的代码。恐怕我不懂JS。

Answer 2

您没有向我们展示result 或result.Value 的定义，所以这是一个有根据的猜测。

尝试在数据库中测试空值：

If IsDbNull(result.Value) Then
    intConnectionId = 0 
Else
    intConnectionId = CInt(result.Value)
End If