Newsgroup: it.comp.lang.visual-basic
Titolo: domanda su griglia

ciao a tutti
ho bisogno di creare una griglia da una tabella in access che
ha diversi campi tra cui "STATO" che puo' essere 1,2,3.
A seconda di quale
numero contiene lo "STATO" la riga della griglia deve essere di un colore
diverso...
qualcuno sa come posso fare?????
spero di essermi fatta capire
altrimenti chiedete pure!!!!
sono moooooolto graditi anche esempi di
codice!!!!!
grazie in anticipo e buon lavoro!!!
--------------------------------
Inviato via 
http://usenet.iol.it

 qualcuno sa come posso fare?????
Che io sappa la dbgrid non può farlo ma c'è un ocx se non sbaglio della
Sheridan che forse lo fà
mentre x la MSFlexGrid non l'ho ancora usata dunque non ti so dire
Ciao
Fabio


 ha scritto nel messaggio
news:151Z27Z160Z7Y1...@usenet.iol.it...

Puoi fare una cosa di queesto tipo (con la FlexGrid):
MsFlexGrid1.Row=[Tua riga che vuoi cambiare di colore]
For i=0 to MSFlexGrid1.Cols
Select case STATO
    case 1
       MSFlexGrid1.CellBackColor = RGB(255, 0, 0)
    case 2
       MSFlexGrid1.CellBackColor = RGB(0, 255, 0)
    case 3
       MSFlexGrid1.CellBackColor = RGB(0, 0, 255)
End Select
Altro modo meno macchinoso non esiste, la riga non ha la proprietà
backcolor. Ultima cosa, non puoi impostare come fondo RGB(0,0,0).
--
Ciao
   Sharkman
-----------------------------
Rimuovere NOSPAM per risposte

grazie e' proprio quello che cercavo!!!!
gia' che ci sono vi chiedo anche
un'altra cosa: come si fa a stabilire una connessione tra una flexgrid e
una tabella in access senza usare come datasource nessun controllo adodata
data enviroment ecc....
ci sara' pure un altro modo!!!!
grazie ancora



si che esiste, ti fai a mano le routine per caricare, cancellare e editare i
dati... :-)
Come faccio io


Come faccio io
potresti x caso mandarmi un esempiettino
di codice???
te ne sarei infinitamente grata!!!!!
non sono molto esperta
come avrai capito!!!
grazie


 grazie
Questo č un piccolo esempio per caricare i dati in una griglia composta di 4
colonne, e due righe iniziali. Nessuna colonna bloccata e la prima riga
bloccata come intestazione.
Nella tabella tblfatture ci sono i record delle fatture emesse ad un cliente
X e nella tabella tblVociFatt le voci di ogni fattura che di volta in volta
vado a selezionare.
For i = 1 To tblFatture.RecordCount
        With mfgArticoli
            .AddItem "Fattura " & tblFatture.Fields("Numero").Value & _
                    " del " & tblFatture.Fields("Data").Value & _
                    Chr(9)
            cboFatture.AddItem tblFatture.Fields("Numero").Value & _
                    " del " & tblFatture.Fields("Data").Value
            .Row = .Rows - 1
            .Col = 0
            .CellForeColor = QBColor(15)
            .CellBackColor = RGB(0, 110, 110)
            .Col = 1
            .CellBackColor = RGB(0, 110, 110)
            .CellForeColor = RGB(0, 110, 110)
            .Text = tblFatture.Fields("IDFattura").Value
            .Col = 2
            .CellBackColor = RGB(0, 110, 110)
            .Col = 3
            .CellBackColor = RGB(0, 110, 110)
            Tot = 0
            Set tblVociFatt = Db.OpenRecordset("SELECT * FROM tblVociFatture
" & _
                        " WHERE IDFattura= " & _
                        tblFatture.Fields("IDFattura").Value)
            If Not tblVociFatt.EOF Then
                tblVociFatt.MoveLast
                tblVociFatt.MoveFirst
                For j = 1 To tblVociFatt.RecordCount
                    .AddItem tblVociFatt.Fields("Articolo").Value & _
                    Chr(9) & tblVociFatt.Fields("Quantita").Value & _
                    Chr(9) & tblVociFatt.Fields("Prezzo").Value & _
                    Chr(9) & Format$(tblVociFatt.Fields("Quantita").Value *
_
                    tblVociFatt.Fields("Prezzo").Value, "##,##0.00") ',
.Rows - 4
                    Tot = Tot + tblVociFatt.Fields("Quantita").Value * _
                            tblVociFatt.Fields("Prezzo").Value
                    tblVociFatt.MoveNext
                Next j
                'Riga di separazione articoli da totali
                .AddItem ""
                .Row = .Rows - 1
                For k = 0 To 3
                    .Col = k
                    .CellBackColor = RGB(185, 185, 185)
                Next k
                'riga totale senza IVA
                .AddItem ""
                .Row = .Rows - 1
                For k = 0 To 3
                    .Col = k
                    .CellBackColor = RGB(0, 185, 0)
                Next k
                .Text = Format$(Tot, "##,##0.00")
                .Col = 2
                .Text = "Imponibile"
                'Riga IVA
                .AddItem ""
                .Row = .Rows - 1
                For k = 0 To 3
                    .Col = k
                    .CellBackColor = RGB(0, 255, 255)
                Next k
                .Text = Format$((Tot * 1.2) - Tot, "##,##0.00")
                .Col = 2
                .Text = "I.V.A."
                'Riga totale ivato
                .AddItem ""
                .Row = .Rows - 1
                .Font.Bold = True
                For k = 0 To 3
                    .Col = k
                    .CellBackColor = RGB(255, 0, 0)
                Next k
                .Text = Format$(Tot * 1.2, "##,##0.00")
                .Col = 2
                .Text = "Totale"
                .Font.Bold = False
            End If
        End With
        tblFatture.MoveNext
    Next i
Spero ti sia stato utile.


ora studio e ti faccio sapere!!! grazie
