[VB6] Pb Format données dans MSHierarchicalFlexgrid

Version imprimable

23/09/2006, 16h23
Vesta

[VB6] Pb Format données dans MSHierarchicalFlexgrid

Les données sont affichées suivant un format bizare...;

ex: dates : 22/02/2006 00:00:00
resultats de calculs 34,232324242132213

Et les données sources sont biens formatées. Existe t il une possibilité de formatage de colonne?

Merci d'avance
24/09/2006, 15h37
khany
Quand tu transfères tes données, tu peux leur appliquer un format :
Code:

1 2 MSHFlexgrid1.Textmatrix(3,4) = Format(MaDate, "dd/mm/yyy")
ou MaDate est ta variable !

Par contre, j'utilise souvent le MSHFlexGrid et je n'ai jamais rencontré ce problème donc, es-tu certain de tes données originelles ?
24/09/2006, 18h33
ProgElecT

Je ne suis pas sûr d'avoir compris si c'est le resultat du calcul ou le remplissage dans le MSHFlexGrid qui pose probleme.

Citation:

ex: dates : 22/02/2006 00:00:00
resultats de calculs 34,232324242132213

Si on fait CDate(34.2323242421322)
le resultat est alors 02/02/1900 05:34:33
Cela semblerait laisser penser que le calcul est bien fait mais renvoyé sous un format Integer ou Long.
Comme le suggere Kany, en extraire que la partie date :
Format(CDate(34.2323242421322), "dd/mm/yyyy") = 02/02/1900

1 pièce(s) jointe(s)

Voila le code que j'utilise.

Code:

1
2
3
4
5
6
7
StrSQL = "SELECT * FROM View_FrmArticlesCommandes WHERE detcmdfmd_refarticleordi = " & art_txt_data(0) & ";"
art_Adodc_Commandes.ConnectionString = Gb_CnString
art_Adodc_Commandes.RecordSource = StrSQL
art_Adodc_Commandes.Refresh
 
Set art_Fgrid_Commandes.DataSource = art_Adodc_Commandes
art_Fgrid_Commandes.Refresh

Et voici le résultat en fichier joint

Je me base sur une requete access pour l'affichage de ces données.

25/09/2006, 18h54
sovo

et tu voudrais changer le format de quel colones ?? la troisieme ou la derniere ??
26/09/2006, 18h33
Vesta

La date je voudrais que l'heure n'apparaisse pas et les totaux soient limités à 2 décimales.

voila pour les dates voila le code

Code:

1
2
3
4
5
6
7
private sub DateMSF (MSF as MSFlexGrid)
     dim i as integer
 
    for i = 1 to msf.rows - 1
            msf.textmatrix(i,3) = format(msf.textmatrix(i,3),"dd/mm/yyyy")
     next 
end sub

pour les arrondi (il faut appeler le chien par son nom)

Code:

1
2
3
4
5
6
7
private sub RondMSF (MSF as MSFlexGrid)
     dim i as integer
 
     for i =1 to msf.rows - 1
           msf.textmatrix(i,7) = round(msf.textmatrix(i,3),2)
     next
end sub

la je crois ca devrais aller.

26/09/2006, 19h17
Vesta

Ok je vais tester ca... Merci