0

VB.NETで簡単なPOSシステムを作ろうとしているのですが、始め方がわからないので、友達にサンプルのソースコードを教えてもらいました。私たちの学校では Microsoft Access を使用しているため、データベースには Microsoft Access ではなく MySQL を使用する予定です。以下は、ソース コードのサンプル コードです。

Public Sub FillDGVWithReceiptInfo(ByVal DGV As DataGridView)
        DGV.Rows.Clear()
        Dim TA As New POSDSTableAdapters.ItemsTableAdapter

        For i = 0 To Me.ReceiptDetailsList.Count - 1
            Dim T1 = Me.ReceiptDetailsList(i).Barcode
            Dim T2 = Me.ReceiptDetailsList(i).ItemBuyPrice
            Dim T3 = Me.ReceiptDetailsList(i).ItemCount
            Dim T4 = Me.ReceiptDetailsList(i).ItemSellPrice
            Dim T5 = T3 * T4
            Dim T6 = TA.GetDataByBarcode(T1).Rows(0).Item("ItemName")

            DGV.Rows.Add(T1, T6, T2, T4, T3, T5)

        Next
    End Sub

「OdBC」形式に変換しようとしています。だから私はこれを思いつきました（また、これはエラーが発生する部分です）：

  Public Sub FillDGVWithReceiptInfo(ByVal DGV As DataGridView)
        DGV.Rows.Clear()

        For i = 0 To Me.ReceiptDetailsList.Count - 1
            Dim T1 = Me.ReceiptDetailsList(i).ganoProdID
            Dim T3 = Me.ReceiptDetailsList(i).ItemCount
            Dim T4 = Me.ReceiptDetailsList(i).ganoItemPrice
            Dim T5 = T3 * T4

            Dim TA As New OdbcDataAdapter("SELECT * FROM gano_inventory WHERE gano_proID = " & T1 & ";", conn)
            Dim R As New DataTable
            TA.Fill(R)

            Dim T6 = R.Rows(0).Item("gano_item")

            DGV.Rows.Add(T1, T6, T4, T3, T5)

        Next
    End Sub

これはコードのエラーです 。列を持たない DataGridView コントロールに行を追加することはできません。最初に列を追加する必要があります。この行: DGV.Rows.Add(T1, T6, T4, T3, T5)

誰かが私を助けてくれますか？前もって感謝します！

4

1 に答える 1

0

行を追加する前に列を作成する必要があります。

DGV.Columns.Add("ProdId")
DGV.Columns.Add("Item")
DGV.Columns.Add("ItemPrice")
DGV.Columns.Add("ItemCount")
DGV.Columns.Add("Total")

...

For i = 0 ...
  DGV.Rows.Add(...
于 2013-06-18T21:27:31.370 に答える