scusate ma perche quando vado a visualizzare il contenuto del DB su mshflex non mi riconosce il datasource???
scusate ma perche quando vado a visualizzare il contenuto del DB su mshflex non mi riconosce il datasource???
Come fai il bind del datasource su MsFlex ?
Posta il codice che non funge.
Ciao, Brainjar
code:
------------------------------------------------------
Private Sub Form_Activate()
'ApriDB
ChiudiRs
Rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic
Set frm_Articolo.DataSource = Rs 'carichiamo i dati nella lista
' s = "NOMINATIVO|INDIRIZZO|TELEFONO|ELETTRODOMESTICO|GU ASTO|ESITO"
' msh_lista.FormatString = s
frm_Articolo.MSFlexGrid1.FillStyle = flexFillRepeat 'così la formattazione delle celle verrà estesa a tutte le celle selezionate
frm_Articolo.MSFlexGrid1.ColWidth(0) = 2000 'per stabilire la larghezza delle colonne
frm_Articolo.MSFlexGrid1.Col = 0 'impostano le coordinate dellala cella attiva
frm_Articolo.MSFlexGrid1.Row = 0 'vedi sopra
frm_Articolo.MSFlexGrid1.RowSel = msh_lista.FixedRows - 1 'servono per rendere attiva la selezione
frm_Articolo.MSFlexGrid1.ColSel = msh_lista.Cols - 1
frm_Articolo.MSFlexGrid1.CellAlignment = 4 'stabilisce l'alt. e la larg.del contenuto della cella principale
frm_Articolo.MSFlexGrid1.FillStyle = flexFillSingle ' così togliamo la selezione
frm_Articolo.MSFlexGrid1.Col = 0 ' riportiamo il setfocus sulla colonna 0 e la riga 1
frm_Articolo.MSFlexGrid1.Row = 1
End Sub
---------------------------------------------------------------------
qui da l'errore:
Set frm_Articolo.DataSource = Rs
Perchè usi il data source?
Fai il bind del recordset direttamente sulla flexgrid.
Prova.codice:Private Sub Form_Activate() 'ApriDB ChiudiRs Rs.Open SQL, Conn, adOpenKeyset, adLockOptimistic 'Fai il bind del recordset direttamente sulla flexgrid. Set frm_Articolo.MSFlexGrid1.Recordset = Rs ' Set frm_Articolo.DataSource = Rs 'carichiamo i dati nella lista ' s = " NOMINATIVO|INDIRIZZO|TELEFONO|ELETTRODOM ESTICO|GUASTO|ESITO" ' msh_lista.FormatString = s frm_Articolo.MSFlexGrid1.FillStyle = flexFillRepeat 'così la formattazione delle celle verrà estesa a tutte le celle selezionate frm_Articolo.MSFlexGrid1.ColWidth(0) = 2000 'per stabilire la larghezza delle colonne frm_Articolo.MSFlexGrid1.Col = 0 'impostano le coordinate dellala cella attiva frm_Articolo.MSFlexGrid1.Row = 0 'vedi sopra frm_Articolo.MSFlexGrid1.RowSel = msh_lista.FixedRows - 1 'servono per rendere attiva la selezione frm_Articolo.MSFlexGrid1.ColSel = msh_lista.Cols - 1 frm_Articolo.MSFlexGrid1.CellAlignment = 4 'stabilisce l'alt. e la larg.del contenuto della cella principale frm_Articolo.MSFlexGrid1.FillStyle = flexFillSingle ' così togliamo la selezione frm_Articolo.MSFlexGrid1.Col = 0 ' riportiamo il setfocus sulla colonna 0 e la riga 1 frm_Articolo.MSFlexGrid1.Row = 1 End Sub
Ciao, Brainjar