0

私のタイトルが少し奇妙であることは知っています。説明させてください。2 つのデータベースを「マージ」しようとしています。1 つはローカルにあり、もう 1 つは別の施設にあり、管理者グループが別々のフォームからエントリを複製する必要がないようにします。オフサイト データベースに接続する Web サービスのソースがあり、データを入力できます。私がやろうとしているのは、私たち自身のデータベースに追加し、私たちのデータを彼らのデータにコピーすることで、そのソースを拡張することです. これが理にかなっていることを願っています。

ともかく、

そのため、ローカル フォームとオフサイト フォームの両方に datagridview がアタッチされています。現在、最初の行の内容をフォームにコピーして入力できますが、2 行目に移動しようとするとエラーが発生します。これが私のコードです:

  Dim i As Integer
        For i = 0 To VRMAdDataGridView.Rows.Count - 1
            'For Each row As DataGridViewRow In VRMAdDataGridView.Rows

            'myrow = VRMAdDataGridView.CurrentRow.Index
            frmcall.dgvRMAItems.Rows(i).Cells("cItemID").Value = Me.VRMAdDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn5").Value
            frmcall.dgvRMAItems.Rows(i).Cells("cExpectedSerialNumber").Value = Me.VRMAdDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn2").Value
            frmcall.dgvRMAItems.Rows(i).Cells("cNotes").Value = Me.VRMAdDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn3").Value

            'Format Type codes from FW to match Utica
            Select Case Me.VRMAdDataGridView.Rows(i).Cells("DataGridViewTextBoxColumn6").Value
                Case "Repair"
                    frmcall.dgvRMAItems.Rows(i).Cells("cRequestedAction").Value = "Repair"
                Case "RTS"
                    frmcall.dgvRMAItems.Rows(i).Cells("cRequestedAction").Value = "Rtn/Stock"
                Case "Repair !!RUSH!!"
                    frmcall.dgvRMAItems.Rows(i).Cells("cRequestedAction").Value = "Rush Repair"

            End Select


            ' myrowval = row.Cells("DataGridViewTextBoxColumn5").Value
            ' MsgBox(myrowval, MsgBoxStyle.Information, "Prod_Code")
            'Do Something
        Next

コードを実行しようとすると、次のエラーが表示されます。

{"インデックスが範囲外でした。負ではなく、コレクションのサイズ未満である必要があります。パラメータ名: インデックス"}

4

1 に答える 1