DATAGRIDVIEW – le basi

Post date: Feb 4, 2012 9:18:43 PM

DATAGRIDVIEW – le basi: come scrivere e leggerne il contenuto

in questo post Dgv (per brevità)

Dgv.CurrentRow.Visible = False 'nasconde la riga della cella selezionata

Dgv.Rows.RemoveAt(4) 'elimina la riga 5

Dgv.Rows.RemoveAt(Dgv.CurrentCell.RowIndex) ' elimina la riga selezionata

Dgv.Rows.Clear() ' cancella tutte le righe

Dgv.ClearSelection() 'deseleziona le celle

‘Scorrere dgv e formattare singole righe

dim nrec,i

nrec = Datagridview1.Rowcount()

for i = 0 to nrec - 1

If DataGridView1.Rows(i).Cells(7).Value < Date.Now Then

DataGridView1.Rows(i).Cells(7).Style.BackColor = Color.Red

End If

next i

‘Alcune proprietà

Dgv.Rows(5).DefaultCellStyle.BackColor() = Color.Yellow ' cambia il colore della 6a riga

Dgv.RowsDefaultCellStyle.BackColor() = Color.Red ' cambia il colore di tutte le righe

Dgv.Rows(1).Height = 10 ' imposta l'altezza della riga

‘per impostare l’altezza delle righe agire sulla proprietà Rowtemplate

‘------------------------------------------------------------------------------------------------------------------

' Leggere i dati della dgv

TextBox1.Text = Dgv(1, 0).Value ' è evidente cosa scrive nella text (colonna 2, riga1)

TextBox1.Text = Dgv.CurrentCell.Value ' .. cella selezionata

TextBox1.Text = Dgv.CurrentCell.RowIndex ' l'indice di riga

TextBox1.Text = Dgv.CurrentCell.ColumnIndex ' l'indice di colonna

-------------------------------------------------------------------------------------------------------------------

' Scrivere nella Datagridview

Dgv(4, 7).Value = "Montagna" ' scrive nella cella di colonna 5 e riga 8 (colonna e riga partono da zero)

Dgv(5, 3).Value = TextBox1.Text ' scrive nella cella il testo preso dalla textbox

Dgv.Rows.Add("AAA", "bbb", "123") ' aggiunge in coda una riga con i testi indicati per ogni cella

Dgv.Rows.Insert(3, "AAA", "bbb", "123") ' inserisce la riga 3(parte da 0!!) tra le righe presenti

-------------------------------------------------------------------------------------------------------------------

Cicli iterativi

MyRiga = Dgv.RowCount 'nella variabile "riga" (integer) memorizza il numero di righe

For Me.MyRiga = 0 To Dgv.RowCount – 2 ' scorre la Grid e usa i dati di ogni riga

TextBox1.Text = Dgv(0, riga).Value

' . . . . .

Next

-------------------------------------------------------------------------------------------------------------------

' apre un file dati e compila la dgv

dgv.Rows.Clear()

FileOpen(1, "percorso\file.estensione", OpenMode.Input)

Do Until EOF(1)

Input(1, campo1) ' legge i campi di ogni record

Input(1, campo2)

'… Input(1, fino a quanti sono i campi da includere) …

dgv.Rows.Add(campo1, campo2, etc. ) 'compila la riga che sta ciclando

Loop

FileClose()

-------------------------------------------------------------------------------------------------------------------

' apre un file dati e compila la dgv

FileOpen(1, " percorso\file.estensione ", OpenMode.Random, , , Len(NomeCampo))

i = 0

Do Until EOF(1)

i = i + 1

FileGet(1, NomeCampo, i) ' legge il record tutti i suoi campi

Dgv.Rows.Add(Articolo.ID, Articolo.NomeDeiCampiDaAggiungereSeparatiDaVirgola)

Loop

Dgv(col, Dgv.CurrentCell.RowIndex).Value = "Mare" ' scrive alla riga selezionata (col è una variabile)

-------------------------------------------------------------------------------------------------------------------

' apre un file dati e ci scrive le righe lette dalla dgv

For Me.riga = 0 To Dgv.RowCount - 2 ' da 0 al num totale di righe scritte (Row Count parte da 1)

FileOpen(1, " percorso\file.estensione ", OpenMode.Append) ‘apertura sequenziale

WriteLine(1, Dgv(0, riga).Value, = Dgv(1, riga).Value, = Dgv(2, riga).Value)

FileClose()

Next

-------------------------------------------------------------------------------------------------------------------

' apre un file dati e ci scrive le righe lette dalla dgv

For Me.riga = 0 To Dgv.RowCount - 2

Articolo.ID = Dgv(0, riga).Value ' memorizza nei campi i dati presi dalla dgv

Articolo.codice = Dgv(1, riga).Value

‘Ripeti fino al numero dei campi da scrivere

i = riga + 1 ' riga della Grid parte da 0, i del File dati parte da 1.

FileOpen(1, " percorso\file.estensione ", OpenMode.Random, , , Len(Articolo)) ‘apertura random

FilePut(1, Articolo, rec)

FileClose()

Next