ciao milio,
Dalla maschera dove inserisco i dettagli, apro un'altra maschera con una gridview per "pescare" i dettagli da un listino.
Quando apro questa maschera popolo la gridview con la funzione "riempigrid" , dopo quando vado a cercare l'articolo interessato tramite un textbox di ricerca nell'evento change faccio ripetere riempigrid.
Questo è riempigrid
PUBLIC SUB riempigrid()
DIM sql AS String
DIM i AS Integer
GridView1.Clear
sql = "select * from dettaglilistini WHERE "
sql &= "idlistino LIKE '%" & dettagli.defidlistino & "%'" " " ' filtro un listino tra i vari listini
sql &= "AND descrizione LIKE '%" & Replace(tbricdescrizione.Text, " ", "%") & "%' " ' filtro gli articoli in base a descrizione
sql &= " order by iddettaglio"
MyRS = MODMain.$conn.Exec(sql)
IF MyRS.Available = TRUE THEN
GridView1.Mode = Select.multiple
GridView1.Header = GridView1.Horizontal
GridView1.Columns.Count = 4
GridView1.Columns[0].Width = 20
GridView1.Columns[1].Width = 120
GridView1.Columns[2].Width = 520
GridView1.Columns[3].Width = 100
GridView1.Rows.Height = 20
GridView1.Columns[0].Text = ""
GridView1.Columns[1].Text = "Codice"
GridView1.Columns[2].Text = "Descrizione"
GridView1.Columns[3].Text = "Prezzo"
GridView1.Rows.Count = MyRS.Count
i = 0
FOR EACH MyRS
GridView1[i, 0].Picture = ""
GridView1[i, 1].Text = MyRS!codice
GridView1[i, 2].Text = MyRS!descrizione
GridView1[i, 3].Alignment = 2
GridView1[i, 3].Text = Funzioni.formtvaluta(MyRS!prezzo)
INC i
NEXT
ELSE
GridView1.Columns.Count = 1
GridView1.Rows.Count = 1
GridView1[0, 0].Text = "Nessun dato"
ENDIF
CATCH
Message.Error(Error.Text)
END
