Originariamente inviata da
oregon
Un "Refresh" non fa miracoli ...
va beh...ho fatto errore di non postare per intero il codice..
provvedo:
carico i dati e li visualizzo nel datagridview
codice:
ApriDataBase()
sestina()
mytable = mysestina.Tables(0)
nmrec = mysestina.Tables(0).Rows.Count
dvsestine.RowCount = nmrec
For i = 0 To nmrec - 1
myrow = mytable.Rows(i)
dvsestine.Item(0, i).Value = myrow.Item(1)
Dim datevalue As DateTime = myrow.Item(1)
datevalue.ToString("dddd", New CultureInfo("it-IT"))
dvsestine.Item(7, i).Value = datevalue.ToString("dddd", New CultureInfo("it-IT"))
Dim currentnum As String = String.Format("{0:C}", myrow.Item(9))
dvsestine.Item(8, i).Value = currentnum
For r = 1 To 6
dvsestine.Item(r, i).Value = myrow.Item(r + 1)
Next
Next
dvsestine.Item(0, 0).Selected = False
nmrec = dvsestine.RowCount
For i = 1 To 90
indx = 0
For r = 0 To nmrec - 1
For t = 1 To 6
If dvsestine.Item(t, r).Value = i Then
indx = myvettore(i)
indx += 1
myvettore(i) = indx
End If
Next
Next
Next
Ho bisogno di inserire una riga nel datagridview perchè mi serve successivamente per incrementare il record nella tabella,potevo usare anche le texbox ma per mia comodità ho preferito così.
Questo il codice in cui aggiungo la riga al datagridview
codice:
dvsestine.Rows.Add()
dvsestine.CurrentCell = dvsestine.Item(0, nmrec)
btnAggiungi.Enabled = False
dvsestine.Focus()
in questo modo aggiungo la riga al datagridview e mi posiziono l'ultima riga aggiunta,prima cella o colonna come volete,pronta all'input da tastiera,una volta inserito il dato con il tab proseguo sulle celle o colonne successive,una volta terminato,registro il tutto.
Questo il codice:
codice:
myrow = mytable.NewRow
myrow.Item(1) = dvsestine.Item(0, nmrec).Value
myrow.Item(2) = dvsestine.Item(1, nmrec).Value
myrow.Item(3) = dvsestine.Item(2, nmrec).Value
myrow.Item(4) = dvsestine.Item(3, nmrec).Value
myrow.Item(5) = dvsestine.Item(4, nmrec).Value
myrow.Item(6) = dvsestine.Item(5, nmrec).Value
myrow.Item(7) = dvsestine.Item(6, nmrec).Value
myrow.Item(9) = dvsestine.Item(8, nmrec).Value
mytable.Rows.Add(myrow)
cmdbuilder = New OleDbCommandBuilder(apsestina)
apsestina.MissingSchemaAction = MissingSchemaAction.AddWithKey
apsestina.Update(mysestina, "sestina")
MessageBox.Show("Aggiornamento Effettuato con Successo.", "Aggiornamento", MessageBoxButtons.OK, MessageBoxIcon.Information)
btnAggiungi.Enabled = True
vi sembra che vi sia una relazione di dati associati,come è stato detto prima,oppure è una registrazione a se stante che niente a che vedere con datagridview associati a dati?
Probabilmente,avendo omesso parti di codici c'è stata una errata interpretazione...chiedo venia..a volta parto con il presupposto che magari era chiaro il mio concetto.
comunque,il refresh del datagridview non funziona.