non so se ho capito bene. Ho provato ad usare un dr1 del das1 e un dr2 del das2, ma mi dà sempre lo stesso errore Mi sa che sto sbagliando ancora qualcosa.


'pulsante che aggiunge una carta selezionata dalla libreria al mazzo
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

Dim dr1 As DataRow
Dim dr2 As DataRow
dr1 = das1.Tables("Collezione").NewRow()
dr2 = das2.Tables("Mazzo").NewRow()
'copia i dati da trasferire in una nuova riga del dataSet1
Dim i, indexRiga1, colonne1, righeDas2 As Integer
colonne1 = dgv1.ColumnCount - 1
indexRiga1 = dgv1.CurrentRow.Index

If dgv1.SelectedRows.Count > 0 Then
For i = 0 To colonne1
dr1(i) = dgv1.Item(i, indexRiga1).Value
Next
End If

For i = 0 To colonne1
dr2(i) = dr1(i)
dr2(colonne1 + 1) = 1
Next

'se il dataSet2 è vuoto aggiunge direttamente la riga
righeDas2 = das2.Tables("Mazzo").Rows.Count - 1
If righeDas2 < 0 Then
das2.Tables("Mazzo").Rows.Add(dr2)
End If

'se il dataSet2 NON è vuoto controlla se è presente quella carta
For i = 0 To righeDas2
If das2.Tables("Mazzo").Rows(i).Item("Nome") = dr1(1) And _
das2.Tables("Mazzo").Rows(i).Item("Col") = dr1(5) And _
das2.Tables("Mazzo").Rows(i).Item("Tipo") = dr1(6) Then

dr2(11) = das2.Tables("Mazzo").Rows(i).Item("Giocate") + 1
das2.Tables("Mazzo").Rows(i).Delete()
das2.Tables("Mazzo").Rows.Add(dr2)

Else
das2.Tables("Mazzo").Rows.Add(dr2)
End If
Next

End Sub