1

データテーブルから値を取得する方法を教えてください。データテーブルには 1 つの行と 1 つの列しかなく、計算を行うには列の値を取得する必要があります。

これが私のスクリプトです

<SCRIPT Language="VB" Runat="server">

Sub Page_Load(Source as object, e as EventArgs) handles me.load

Dim connectionstring As String = "DRIVER={MySQL ODBC 5.2 Unicode Driver}; SERVER=localhost; DATABASE=mydb; UID=andrew; PASSWORD=kh12345; OPTION=3"

Dim connectme As OdbcConnection = New OdbcConnection(connectionstring)

Dim sqlquery As String = "SELECT f_name, f_price from tbl_picture WHERE f_ID = 1"

Dim ODBCdataadapter As OdbcDataAdapter = New OdbcDataAdapter(sqlquery, connectme)

Dim ODBCdataset As DataSet = New DataSet()

ODBCdataadapter.Fill(ODBCdataset)

DataTable.DataSource = ODBCdataset
DataTable1.DataSource = ODBCdataset
Datatable.DataBind()
Datatable1.DataBind()
End Sub

</SCRIPT >

<ASP:Datagrid ID="Datatable1" Runat="server" AutoGenerateColumns="False"BorderStyle="None" GridLines="None">
<Columns>
            <asp:BoundColumn 
            DataField="f_price" 
            ReadOnly="True"/>
</columns>
   </asp:DataGrid>

そしてここに計算部分があります

 Private Sub CalculatePayment()
        Dim c_loan_amount, c_Payment
        Dim amount As String = Datatable1.Select("f_price")
        c_loan_amount = amount - (amount * Down.Text * 0.01)
        c_Payment = ((c_loan_amount * (Interest.Text * 0.01) * Year.Text) + c_loan_amount) / (Year.Text * 12)
        Payment.Text = "RM " & Format(c_Payment, "#,##0.00")
    End Sub

文字列部分としての Dim 量のはずですよね？私はちょっと新しいです、事前に感謝します。

4

1 に答える 1

0

行と項目を定義する必要があります。

試す

Dim amount As String = Datatable1.tables(0).Rows(0).Item(1)

データテーブルはデータセットの可能なメンバーであるため、実際には datatable1 の名前を dataset1 に変更する必要があります。何が何であるかの混乱を最小限に抑えるためだけです。

Rows は、データテーブルのどの行かを示します。アイテムは、どのインデックスかを示します。

0 = f_name
1 = f_amount
于 2013-11-08T09:34:16.380 に答える