私のタイトルが少し奇妙であることは知っています。説明させてください。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
コードを実行しようとすると、次のエラーが表示されます。
{"インデックスが範囲外でした。負ではなく、コレクションのサイズ未満である必要があります。パラメータ名: インデックス"}