FAIRE LE CALCUL DANS UN DATAGRID

Commentaire de frop01 le 08/10/2004 15:07:32

Salut

- il te manques un refresh dans la procedure calcul (command1)
- tester si text1 <>"" pour valider la recherche
- pour que le calcul soit exacte il faut recalculer la somme par ligne lorsque l'utilsateur resaisie  le prix unitaire et la quantité  (événement keydown lorsqu'il valide par une entrée)

Voici qq amélioration :


Dim pu As Long
Dim qte As Long
Private Sub Command1_Click()
    Dim i As Integer
    Dim Som As Long
    Som = 0
    Adodc1.Refresh
    For i = 1 To Adodc1.Recordset.RecordCount
        Som = Som + Adodc1.Recordset.Fields(5).Value
        Adodc1.Recordset.MoveNext
    Next i
    Label1.Caption = Som
End Sub

Private Sub Command2_Click()
  If Text1.Text <> "" Then
    Adodc1.Recordset.Filter = "numero='" & Trim(Text1.Text) & "'"
  End If
End Sub

Private Sub Command3_Click()
    Adodc1.Refresh
End Sub

Private Sub DataGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
   If DataGrid1.Col = 4 Or DataGrid1.Col = 3 Then
     pu = Val(DataGrid1.Columns(3).Text)
     qte = Val(DataGrid1.Columns(4).Text)
     DataGrid1.Columns(5).Text = qte * pu
   End If
End If
End Sub

Commentaire de LaSoft le 12/10/2004 15:34:23

Avec les deux modifications le code fonctionne très bien, mais si je veux faire lancer le calcul de somme à partir de la sub DataGrid1_KeyDown, le datagrid réaffiche l’ancienne valeur.
Comment forcer l’écriture des modifications avant de rafraîchir ?

Commentaire de pointbin le 01/06/2005 13:23:48

Comment avez vous fais pour remplir les colonnes du dataGrid dans le form car quand je mais une dataGrid je trouve seulement colonne (0) et colonne(1) et j'ai pas su comment ajouter 3 autre colonne.

Merci

Commentaire de pointbin le 02/06/2005 11:50:58

Merci  frop01, je vais l'essayer, normallement ça marche avec une base mysql?

est ce que c'est possible de le faire en code source sans "extraire les champs"

Merci beaucoup.

Commentaire de frop01 le 03/06/2005 18:55:33

oui ca marche avec toutes les base de données tant qu'on utilise le ADODC couplé avec son ODBC (my-ODBC pour mysql)


Sinon pour le refresh, il faut rafraichir l'ADODC !