Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - sommare in una MSHFLEXGRID
Forum - Visual Basic 6 - sommare in una MSHFLEXGRID

Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 20:52
Venerdì, 05/12/2008
X

Ultima modifica effettuata da magicolotto il 30/08/2018 alle 23:04
PM Quote
Avatar
Overflow (Normal User)
Expert


Messaggi: 334
Iscritto: 11/01/2008

Segnala al moderatore
Postato alle 20:57
Venerdì, 05/12/2008
Testo quotato
Postato originariamente da magicolotto:

  ho una  mshflexgrid
composta da 30 righe

ogni riga ha un ID ED UNA DATA e 7 campi numerici

dovrei trovare la somma dei campi numerici per ogni riga

ho fatto cosi

Codice sorgente - presumibilmente VB.NET
  1. Private Sub Command1_Click()
  2. Dim row As Integer
  3.  
  4.  Dim num(8) As Integer
  5.  
  6.    For row = 1 To 30
  7.  
  8.        num(1) = CInt(MSHFlexGrid1.TextMatrix(row, 3))
  9.        num(2) = CInt(MSHFlexGrid1.TextMatrix(row, 4))
  10.        num(3) = CInt(MSHFlexGrid1.TextMatrix(row, 5))
  11.        num(4) = CInt(MSHFlexGrid1.TextMatrix(row, 6))
  12.        num(5) = CInt(MSHFlexGrid1.TextMatrix(row, 7))
  13.        num(6) = CInt(MSHFlexGrid1.TextMatrix(row, 8))
  14.        num(7) = CInt(MSHFlexGrid1.TextMatrix(row, 9))
  15. For i = 1 To 7
  16.  
  17. numero = num(i)
  18. somma = somma + numero
  19.  
  20.  List1.AddItem somma
  21.  Next i
  22. Next row
  23.  
  24. End Sub


non va'  dove sbaglio?


Codice sorgente - presumibilmente VB.NET
  1. Private Sub Command1_Click()
  2. Dim row As Integer
  3.  
  4.  Dim num(8) As Integer
  5.  
  6.    For row = 1 To 30
  7.  
  8.        num(1) = CInt(MSHFlexGrid1.TextMatrix(row, 3))
  9.        num(2) = CInt(MSHFlexGrid1.TextMatrix(row, 4))
  10.        num(3) = CInt(MSHFlexGrid1.TextMatrix(row, 5))
  11.        num(4) = CInt(MSHFlexGrid1.TextMatrix(row, 6))
  12.        num(5) = CInt(MSHFlexGrid1.TextMatrix(row, 7))
  13.        num(6) = CInt(MSHFlexGrid1.TextMatrix(row, 8))
  14.        num(7) = CInt(MSHFlexGrid1.TextMatrix(row, 9))
  15.  
  16. somma = 0
  17. For i = 1 To 7
  18.  
  19. somma = somma + num(i)
  20.  
  21.  List1.AddItem somma
  22.  Next i
  23. Next row
  24.  
  25. End Sub


prova cosi

PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 21:16
Venerdì, 05/12/2008
niente

mi mostra tutte le somme

esempio
ho una riga composta da :

04-47-19-36-46-14-31

mi da queste somme

04
51
70
106
152
166
197

cioè mi somma numero per numero

mentre dovrebbe essere visualizzatro solo 197


PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 21:17
Venerdì, 05/12/2008
D

Ultima modifica effettuata da magicolotto il 30/08/2018 alle 23:04
PM Quote
Avatar
magicolotto (Normal User)
Expert


Messaggi: 338
Iscritto: 21/01/2008

Segnala al moderatore
Postato alle 9:31
Domenica, 07/12/2008
ragazzi vorrei inserire tutti i risultati nella MHFLEXGRID

COME  POSSO PROCEDERE?

PM Quote