0

現在何も含まれていないデータベースがあり、最初のレコードを作成して保存しようとしていますが、「位置0に行がありません」というエラーが表示されます。

私がやったことは、ユーザーが荷送人または荷受人の名前を選択できるテキストボックスを用意する代わりに、それらを引き出して、他の2つのデータベース（shippers.mdb）の適切なフィールドにバインドしたコンボボックスに入れました。およびreceivers.mdb）。

したがって、[保存]ボタンをクリックすると、選択したアイテム（文字列に保存）をそれらのコンボボックスからデータベースの各列セルに保存します。ただし、システムではレコードをまったく保存できません。編集中または入力中の「現在の」レコードの情報を保存する方法を模索していたので、何らかの理由で（0）を使用することにしました。これでうまくいくかもしれないと思いましたが、正しくないようです。コードは次のとおりです。

Private Sub Button16_Click_1(sender As System.Object, e As System.EventArgs) Handles Button16.Click

        Me.OrdersDataSet.orders(0).orderstatus = ComboBox13.SelectedItem.ToString()
        shipper1 = ComboBox8.SelectedItem.ToString()
        Me.OrdersDataSet.orders(0).SHIPPER1 = shipper1
        RECEIVER1 = ComboBox9.SelectedItem.ToString()
        Me.OrdersDataSet.orders(0).RECEIVER1 = RECEIVER1
        billtoacct = ComboBox7.SelectedItem.ToString()
        Me.OrdersDataSet.orders(0).BILLTOACCT = billtoacct
        driverassigned = ComboBox10.SelectedItem.ToString()
        Me.OrdersDataSet.orders(0).DRIVERASSIGNED = driverassigned
        truckassigned = ComboBox11.SelectedItem.ToString()
        Me.OrdersDataSet.orders(0).TRUCKASSIGNED = truckassigned
        trailerassigned = ComboBox12.SelectedItem.ToString()
        Me.OrdersDataSet.orders(0).TRAILERASSIGNED = trailerassigned

        Me.Validate()
        Me.OrdersBindingSource.EndEdit()
        Me.TableAdapterManager12.UpdateAll(Me.OrdersDataSet)
    End Sub

現在のレコードのコンボボックスアイテムを保存（または置換）できるものが見つからないため、代わりに何を使用する必要がありますか？テーブルアダプタをチェックインしてCRUDが存在することを確認し、入力、更新などが設定されていることを確認しました。

ご覧いただきありがとうございます。

4

1 に答える 1

0

これを試してみてください....これをすべてボタンクリックイベントに入れて、必要に応じて変更してください...

Dim customerOrders As DataSet = New DataSet("CustomerOrders")
Dim ordersTable As DataTable = customerOrders.Tables.Add("Orders")

'ADD YOUR COLUMNS YOU NEED TO...'
ordersTable.Columns.Add("OrderQuantity", Type.GetType("System.Int32"))
ordersTable.Columns.Add("CompanyName", Type.GetType("System.String"))

'AND WHATEVER ELSE YOU NEED TO ADD, CHANGE AS NEEDED'

    ' Add YOUR ROWS to those columns for the datatable.
ordersTable .Rows.Add(25, "Indocin")
ordersTable .Rows.Add(50, "Enebrel")
ordersTable .Rows.Add(10, "Hydralazine")
ordersTable .Rows.Add(21, "Combivent")
ordersTable .Rows.Add(100, "Dilantin")

次に、テーブルを含むデータセットと、テーブルアダプターマネージャーに設定するデータがあります。

ありがとう！

于 2013-02-06T06:24:10.150 に答える