[VB6] Somma di valori all'interno di una MSFlexGrid

[vr-claudio]

Ciao ragazzi ho bisogno di aiuto... io ho una flexgrid con la prima riga fissa_e con tre colonne e due label. Le prime due colonne normali, mentre la terza colonna formattata solo con numeri, io vorrei che quando l'utente va ha cercare dei dati tramite la flex, che abbia la possibilità su una_label di visualizzare il numero dei record e sull'altra label i totali della terza colonna. _ Vi prego aiutatemi, perchè di flex non so' veramente nulla Grazie mille vrcla

[vr-claudio]

UN AIUTINO PER CORTESIA?

VRCLAUDIO

[LMondi]

Ciao Claudio, per quanto riguarda la somma.
Prima di tutto devi inserire la seguente funzione in un modulo bas, ciò per evitare errori nel caso di valori = 0 o Null:

Public Function Ctr(strTesto As String) As Double
    On Error Resume Next
        
    If IsNumeric(strTesto) = True Then
        Ctr = CDbl((strTesto))
        Else: Ctr = 0
    End If
    
End Function

Poi per effettuare la somma della colonna 3:

Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As _
    Integer, X As Single, Y As Single)
    
    Dim i As Integer
    Dim Somma As Double

'Lettura della FlexGrid e Somma:
  For i = 1 To MSFlexGrid1.Rows - 1
    MSFlexGrid1.Col = 3
    MSFlexGrid1.Row = i
    Somma = Somma + Ctr(MSFlexGrid1.Text)
  Next i
    LblSum3.Caption = Format(Somma, "#,##0.00")

End Sub

Ciao.

[vr-claudio]

Ciao carissimo LMondi
ci provo appena ho il programma sotto mani e poi ti faccio sapere, nel frattempo
ti ringrazio tantissimo
Claudio

[vr-claudio]

GRAZIE LMondi
FUNZIONA PERFETTAMENTE
TI RINGRAZIO TANTISSIMO, PERDONAMI SE TI CHIEDO ANCORA UNA COSA, SO' CHE NON SI POTREBBE FARE E CHE NON E' GIUSTISSIMO, MA SPERO CHE TU MI POSSA AITARE E CHE IL FORUM ME LO CONCEDA...
SE IO VOLESSI SOLAMENTE SOMMARE I DATI NELLA STESSA COLONNA MA SOLO DOVE TROVA IL NUMERO 2 COME POSSO FARE?


GRAZIE ANCORA
CLAUDIO

[LMondi]

Ciao Claudio,
temo di non aver capito bene la domanda.

SE IO VOLESSI SOLAMENTE SOMMARE I DATI NELLA STESSA COLONNA MA SOLO DOVE TROVA IL NUMERO 2 ...

Cosa intendi ?

[vr-claudio]

Si hai ragione, scusami tanto
questo programma dovrà diventare un carico e scarico di prodotti per negozi, supponiamo che l'utente voglia solamente vedere scontrini con vendita doppia, cioè ogni scontrino due prodotti, anzichè 1 solo!

Es:

Nella colonna x della Flex, sono stati eseguiti 10 scontrini ma solo 4 hanno avuto una vendita doppia quindi due prodotti!

Spero di essermi speigato ABBASTANZA decentemente, e scusa ancora tanto per l'incomprensione

[LMondi]

Claudio è bene che tu apra una nuova discussione, del tipo: [VB6] Ricerca di valori duplicati in una colonna della MSFlexGrid.
Questo per dare modo anche agli altri amici del Forum, molto più preparati di me, d'aiutarti.
La cosa non è semplice, almeno per me che non conosco bene il controllo di cui trattasi.
Detto ciò, io immetterei i valori della colonna in una matrice per poi ciclarli e controllare i duplicati; però devo rilevare che MSFlexGrid offre già la possibilità d'utilizzo di matrici, .... bisogna saperle usare.
Ciao.

[LMondi]

vr-claudio a chiesto aiuto per individuare dei valori duplicati in una colonna di una MSFlexGrid (di cui alla seguente discussione http://forum.html.it/forum/showthrea...readid=1133678).
Non conosco bene il predetto controllo, ma mi sono ingegnato e ne è venuto fuori il seguente codice che pur svolgendo la sua funzione, senz'altro conterrà errori nell'approccio del problema.
Lascio agli amici del Forum la correzione, così che avrò modo d'apprendere qualcosa in più sul predetto controllo.

Private Sub CmdDup_Click()
    
    Dim n(1 To 5) As Double
    Dim x As Integer
    Dim NU As Integer, U() As Integer
    Dim i As Integer, j As Integer, Duplicato As Boolean
    Dim risult As String, risultD As String
    Dim CountDouble As Integer
   
' Inserisce i dati della 3^ colonna nella matrice:
    For x = 1 To 5
        n(x) = MSFlexGrid1.TextMatrix(x, 3)
    Next x
      
   CountDouble = 0
   ReDim U(1)
   U(1) = n(1)
   NU = 1
   For i = 2 To 5
      Duplicato = False
      For j = 1 To NU
        If n(i) = U(j) Then
            Duplicato = True
            risultD = risultD & Space(2) & U(j)
            CountDouble = 1 + CountDouble
            Exit For
        End If
      Next
      If Duplicato = False Then
         NU = NU + 1
         ReDim Preserve U(NU)
         U(NU) = n(i)
      End If
   Next

   For i = 1 To NU
      risult = risult & Space(2) & U(i)
        Lbl2.Caption = "Totale numeri unici" & Space(1) & NU & ":" & Space(1) & risult & Chr(13) _
        & "di cui:" & Chr(13) _
        & CountDouble & Space(1) & "doppi" & Space(1) & risultD
    Next

End Sub

Grazie !!

[vr-claudio]

DEVO PROVARE IL CODICE CHE MI HAI GENTILMENTE INVIATO, MI SEMBRA A COLPO D'OCCHIO INTERESSANTISSIMO...TI FACCIO IMMEDIATAMENTE SAPERE APPENA L'HO TESTATO SUL PROGRAMMA.
NEL FRATTEMPO MI SEMBRA DOVERESO, DA PARTE MIA E PENSO DI TUTTO IL FORUM UN RINGRAZIAMENTO PIU' CHE ENCONIABILE A LMondi.


TI FACCIO SAPERE...VR-CLAUDIO