1

我正在学习 VB.net。我正在使用 MS VB.net 关注 Brian Siler 特别版 (2001) 的第 3 章。看起来 VB 的变化不大，但我在从工具箱添加表格时遇到了问题。

在工具箱（来自 Visual Studio 2012 Express 的版本；ASP.net 2012）中，要构建 VB.net 项目，有 TextBox 和 Table 等项目。要构建一个 Web 应用程序，我可以添加 TextBox、Label 等并毫无问题地对它们进行编码。但是，当我添加表时，出现了问题。

与 Textbox 和 Label 一样，我tblAmortize首先将表 ID 重命名（为 ）。然后我输入了他们书中的代码，并得到了一个错误：

'tblAmortize' is not declared. It may be inaccessible due to its protection level"

据我所知，TextBox 项，如txtPrincipal.Text在我们使用时不需要声明。但似乎这个“表”tblAmortize项需要先声明，或者需要建立一个链接，因为tblAmortize它位于Form 2while btnShowDetail_Clickis in 中Form 1。完整代码如下：

Public Class Hello_Web
    Inherits System.Web.UI.Page

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

        Dim intTerm As Integer                'Term, in years
        Dim decPrincipal As Decimal           'Principal amount $
        Dim decIntRate As Decimal             'Interst rate %
        Dim dblPayment As Double              'Monthly payment $

        Dim decMonthInterest As Decimal       'Interest part of monthly payment
        Dim decTotalInterest As Decimal = 0   'Total interest paid
        Dim decMonthPrincipal As Decimal      'Principal part of monthly pament
        Dim decTotalPrincipal As Decimal = 0  'Remaining principal

        Dim intMonth As Integer               'Current month
        Dim intNumPayments As Integer         'Number of monthly payments
        Dim i As Integer                      'Temporary loop counter
        Dim rowTemp As TableRow               'Temporary row object
        Dim celTemp As TableCell              'Temporary cell object

        If Not IsPostBack Then        'Evals true first time browser hits the page
            'SET Up THE TABLE HEADER ROW
            rowTemp = New TableRow()
            For i = 0 To 4
                celTemp = New TableCell()
                rowTemp.Cells.Add(celTemp)
                celTemp = Nothing
            Next
            rowTemp.Cells(0).Text = "Payment"
            rowTemp.Cells(1).Text = "Interest"
            rowTemp.Cells(2).Text = "Principal"
            rowTemp.Cells(3).Text = "Total Int."
            rowTemp.Cells(4).Text = "Balance"
            rowTemp.Font.Bold = True
            tblAmortize.Rows.Add(rowTemp)


            'PULL VALUES FROM SESSION VARIABLES

            intTerm = Convert.ToInt32(Session("term"))
            decPrincipal = Convert.ToDecimal(Session("Principal"))
            decIntRate = Convert.ToDecimal(Session("IntRate"))
            dblPayment = Convert.ToDecimal(Session("decPayment"))

            'CALCULATE AMORTIZATION SCHEDULE
            intNumPayments = intTerm * 12
            decTotalPrincipal = decPrincipal
            For intMonth = 1 To intNumPayments
                'Determine Values For the Current Row
                decMonthInterest = (decIntRate / 100) / 12 * decTotalPrincipal
                decTotalInterest = decTotalInterest + decMonthInterest
                decMonthPrincipal = Convert.ToDecimal(dblPayment) - decMonthInterest
                If decMonthPrincipal > decPrincipal Then
                    decMonthPrincipal = decPrincipal
                End If
                decTotalPrincipal = decTotalPrincipal - decMonthPrincipal

                'Add the values to the table
                rowTemp = New TableRow()
                For i = 0 To 4
                    celTemp = New TableCell()
                    rowTemp.Cells.Add(celTemp)
                    celTemp = Nothing
                Next i

                rowTemp.Cells(0).Text = intMonth.ToString
                rowTemp.Cells(1).Text = Format(decMonthInterest, "$###0.00")
                rowTemp.Cells(2).Text = Format(decMonthPrincipal, "$###0.00")
                rowTemp.Cells(3).Text = Format(decTotalInterest, "$###0.00")
                rowTemp.Cells(4).Text = Format(decTotalPrincipal, "$###0.00")

                tblAmortize.Rows.Add(rowTemp)
                rowTemp = Nothing
                'PrevFormat()

            Next intMonth
        End If

    End Sub


    Protected Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
        Dim decPrincipal As Decimal
        Dim decIntRate As Decimal
        Dim intTerm As Integer, dblPayment As Double

        'Store the principle in the variable decprincipal
        'decPrincipal = CDbl(txtPrincipal.Text)
        decPrincipal = (txtPrincipal.Text)

        'Convert interest rate to its decimal equivalent
        ' i.e. 12.75 becomes 0.1275
        decIntRate = CDbl(txtIntrate.Text) / 100

        'Convert annual interest rate to monthly
        '  by dividing by 12 (months in a year)
        decIntRate = decIntRate / 12

        'Convert number of years to number of months
        '  by multiplying by 12 (months in a year)
        intTerm = CDbl(txtTerm.Text) * 12

        'Calculate and display the monthly payment.
        '  The format function makes the displayed number look good.
        dblPayment = decPrincipal * (decIntRate / (1 - (1 + decIntRate) ^ -intTerm))
        txtPayment.Text = Format(dblPayment, "$#,##0.00")

        'Add Amortization Schedule
        '  The Schedule button will be shown only after you click the Calculate Payment LinkButton
        btnShowDetail.Visible = True
    End Sub

    Protected Sub btnShowDetail_Click(sender As Object, e As EventArgs) Handles btnShowDetail.Click

        'Storetext box values in session variables
        Session.Add("Principal", txtPrincipal.Text)
        Session.Add("IntRate", txtIntrate.Text)
        Session.Add("Term", txtTerm.Text)
        Session.Add("Payment", txtPayment.Text)

        'Display the Amortization form
        Response.Redirect("frmAmort.aspx")
    End Sub
End Class
4

1 回答 1

0

在声明表时，您必须编写 runat = "Server"

这是代码示例

<Table ID = "tblMyTable" runat = "Server">
    .
    .
    .
</Table>

现在您可以在代码中使用您的表格。

如果您已经可以在 Form2 的代码中访问表格，并且希望在 Form1 的代码中访问它，并且如果您不知道该怎么做，那么这里是解决方案：

Dim tbl as new Table
tbl = CType(Form1.FindControl("tblMyTable"),Table)
于 2013-05-29T20:41:55.833 回答