為什么我收到這個錯誤？ 從字符串“Invoice”到類型“Integer”的轉換無效

Question

我正在嘗試使用數據表從數據庫獲取數據，然后將其傳遞到我的文本框中。 這是我的代碼。 錯誤發生在我的第一行 me.txtInvoice.text。

    Try
        dtTable = MyBase.appMgr.fncTransactionSuccessful_Sel("1", strErrMsg)
        If strErrMsg = String.Empty Then
            If dtTable.Rows.Count > 0 Then
                Me.txtInvoiceNo.Text = dtTable("Invoice").ToString
                Me.txtAmountPaid.Text = "RM " & dtTable("Amount").ToString
                Me.txtPaymentDate.Text = dtTable("PaymentDate").ToString
                Me.txtPackageSelected.Text = dtTable("PackageSelected").ToString
                Me.txtPackageStartDate.Text = dtTable("PackageStartDate").ToString
                Me.txtPackageEndDate.Text = dtTable("PackageEndDate").ToString
            End If
    <div class="form-group col-lg-6 col-md-12 col-sm-6" style="margin-bottom: 0px; margin-top: 17px">
      <asp:TextBox ID="txtInvoiceNo" runat="server" Text="123466" CssClass="form-control"></asp:TextBox>
      </div>

Answer 1

也許你打算這樣做：

    dtTable = MyBase.appMgr.fncTransactionSuccessful_Sel("1", strErrMsg)
    If strErrMsg = String.Empty Then
        If dtTable.Rows.Count > 0 Then

            Dim ro = dtTable(0) 'get the first row out of the table

            Me.txtInvoiceNo.Text = ro("Invoice").ToString
            Me.txtAmountPaid.Text = "RM " & ro("Amount").ToString
            Me.txtPaymentDate.Text = ro("PaymentDate").ToString
            Me.txtPackageSelected.Text = ro("PackageSelected").ToString
            Me.txtPackageStartDate.Text = ro("PackageStartDate").ToString
            Me.txtPackageEndDate.Text = ro("PackageEndDate").ToString
        End If

如果您使用強類型數據集，它將使您的生活更輕松。 對於強類型表，此代碼可能如下所示：

    dtTable = MyBase.appMgr.fncTransactionSuccessful_Sel("1", strErrMsg)
    If strErrMsg <> String.Empty Then 
        'do something here
        Return
    End If

    If dtTable.Count > 0 Then
        Dim ro = dtTable(0) 'get the first row out of the table

        Me.txtInvoiceNo.Text = ro.Invoice
        Me.txtAmountPaid.Text = "RM " & ro.Amount
        Me.txtPaymentDate.Text = ro.PaymentDate
        Me.txtPackageSelected.Text = ro.PackageSelected
        Me.txtPackageStartDate.Text = ro.PackageStartDate
        Me.txtPackageEndDate.Text = ro.PackageEndDate
    End If

含義 Intellisense 可以幫助您處理列，因為它們是具有正確數據類型的正確屬性