Hola, Keria Saber Como Sumar Una Columna Determinada Y/o Una Fila En Un Msflexgrid
Salu2
05/04/2006, 05:28
| ||||
| ||||
 (pregunta) Sumar Msflexgrid Hola, Keria Saber Como Sumar Una Columna Determinada Y/o Una Fila En Un Msflexgrid Salu2
__________________ LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA |
|
05/04/2006, 12:04
| ||||
| ||||
| con un ciclo for... algo así dim a as long a = 0 for i = 1 to grid.rows-1 a = a + clong(grid.textmatrix(1,2)) next i msgbox a de esta manera se hace la suma... nos vemos...
__________________ * Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ Sitio http://www.geoavila.com twitter: @GeoAvila |
|
06/04/2006, 09:05
| ||||
| ||||
| bue ahora el tema es ke puse un fexgrid y no se como hacer para ingresar valores en las celdas :S 
__________________ LA MUERTE ESTÁ TAN SEGURA DE VENCER QUE NOS DA TODA UNA VIDA DE VENTAJA |
|
15/09/2006, 09:18
| |||
| |||
| Necesito una ayudita Yo quiero sumar todo la fila de un MSFLEXGRID, yo utilizo este codigo, pero me suma mal, cuando son muchos registros. Private Sub Calcular_Click() Dim I As Integer Dim Val1 As Double Dim Formato As String Pagos.Text = " " Formato = "###,####.00" If MsgBox("DESEA CALCULAR EL MONTO....", vbYesNo, "CALCULAR EL PAGO") = vbYes Then On Error Resume Next For I = 0 To DBGrid1.ApproxCount - 1 DBGrid1.Row = I Val1 = Val1 + CDbl(DBGrid1.Columns(14)) Next I Pagos.Text = Format(Val1, Formato) Else Unload Me End If Calcular.Enabled = False End Sub Muchas Gracias |
