MSFlexgrid

Question

Salut à tous,

Je suis un débutant niveau 0, je souhaite remplir un "tableau" dans un formulaire avec des données numériques provenant d'une table Access 2000. Le but étant de faire des opérations (addition et soutraction) sur des colonnes entières. Je sais utiliser le contrôle listview pour l'affichage des données, je pense que pour les calculs il me faudrait utiliser le contrôle MSFlexgrid. 
Problème, je ne connais pas ce contrôle. Quelqu'un dans son infinie bonté peut-il m'expliquer simplement son fonctionnement?
Merci d'avance, toute réponse ironique risque de me décourager dans ma découverte de VB.

cs_krevette · Answer

salut

pour utiliser msflexgrid c'est trés simple.
Exemple :

'parcourir ton tableau est changer la valeur d'une cellule
for i= 1 to MSFG.rows-1 'MSFG=MsFLEXGRID
  MSFG.textmatrix(i, 0) = "oui"
next i

voila j'espére que tu compendra mon exemple

ciao  bonne prog

krevette ;-)

JMKPROD · Answer

Salut ,

Merci Krevette pour ta réponse, j'ai pu faire la somme sur une colonne en utilisant ta boucle, super!!!!!

Autre problème:
je récupère mes données (Access) en utilisant: 
Set MSflexgrid1.DataSource= un recordset 
Cette fonction transfert toutes les colonnes de la table (Access) vers ma "MSflexgrid".

Question:
Comment rapatrier uniquement les colonnes qui m'interessent?

Merci d'avance.

cs_krevette · Answer

pour ne pas afficher toutes les colonnes c'est un peu plus de travail.

il faut tout d'abort déclarer les variable a utiliser et faire ta requete "manuellement " pas avec les record source.

bon tu as du déclaré le composant Microsoft Ado object librarie

essaie ce code:
...
dim i as integer
dim cn As ADODB.connection 
dim rs As ADODB.Recordset 

  Set cn = New ADODB.connection
  cn.CursorLocation = adUseServer
  cn.Provider = "Microsoft.Jet.OLEDB.4.0"
  cn.ConnectionString = "chemin de ta BDD"

  i=1
  rs.Open "SELECT lib_categorie FROM categorie;", cn, adOpenDynamic, adLockReadOnly
  While Not rs.EOF
    MSFG.textmatrix(i, 1) = rs!champtable
    .....
    rs.MoveNext
    i=i+1
  Wend

...

ciao bonne prog

krevette ;-)

MSFlexgrid

3 réponses

Discussions similaires