Visual Basic - Agrupar DATOS y sumar por grupos mshflexgrid

Life is soft - evento anual de software empresarial
   
Vista:

Agrupar DATOS y sumar por grupos mshflexgrid

Publicado por JUAN m-a-t-e-o-12@hotmail.com (32 intervenciones) el 28/12/2015 18:30:09
Nombre


Buenas antes de poner un tema créanme que es la ultima opción que me queda ya que eh probado de todo. El problema:

en un mshflexgrid listo vendedores con sus respectivos movimientos, estos datos los traigo de una tabla (mdb) eh logrado agregar la ultima fila de totales que me da el resultado de TODO los datos, Lo que se quiere es que debajo de cada VENDEDOR se inserte esta fila así como lo recreo en la imagen.
Es posible hacer esto en este tipo de control ?
Necesito otro control para lograrlo ?

Olvide mencionar que todo este lió lo tengo en VB6.0

Alguna alma noble que me pueda ayudar GRACIAS

Saludos desde el golfo de uraba COLOMBIA.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo

Agrupar DATOS y sumar por grupos mshflexgrid

Publicado por Andres Leonardo (702 intervenciones) el 29/12/2015 15:26:24
Hola amigo ... solo una consulta podrias pasar los dfatos con los q cargas el mshflexgrid... se me ocurre que lo que podrias hacer ...es que tu contreles esto al cambio de la primera columna y le agregues el subtotal.. nunca he hecho algo parececido .. pero podria ayudarte...

quedo atento a tu codigo paara ver que le podemos hacer...

SAludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Agrupar DATOS y sumar por grupos mshflexgrid

Publicado por JUAN (32 intervenciones) el 29/12/2015 23:30:18
Amigo saludos gracias por responder tan pronto Aquí esta algo del código con el cual lleno la Grilla

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub ReconecXion2()  'Genero la conexión y la consulta la cual traigo con rango de fechas (Desde la fecha que esta en Text1 'Hasta la Fecha que esta en Text2 
On Error GoTo m
Set BD = New ADODB.Connection
Set rs1 = New ADODB.Recordset
rs1.CursorLocation = adUseClient
Call Mybase
rs1.Open "select ruta,FECHA,COBRO,PRESTAMO,UTILIDAD,GASTOS,RETIROS,INGRESOS,EFECTIVO,BASE,CAJA,SUMA_SALD,CAPI_TOTAL,DESCUADRES,DESCUENTOS,CAPI_FINAL,ABONOS,PROMEDIO,USUARIO from REPOrTES where  fecha >= #" & _
liquidar.Text1.Text & "# AND Fecha <= #" & liquidar.Text2.Text & _
"#  order by RUTA asc,FECHA asc", BD, adOpenKeyset, adLockOptimistic, adCmdText
Exit Sub
m:
MsgBox Err.Description, vbCritical, "Modulos"
End Sub
 
 
Private Sub Combinar_Filas()  ' Combino la primera fila
 ReconecXion2
  With LQ ' lq es el nombre sexy de la grilla xd
         .SelectionMode = flexSelectionByRow
         .AllowUserResizing = flexResizeColumns
 
         ' -- Añade el texto de los encabezados
Set .DataSource = rs1
        ' -- Agrupa y Combina la primer columna
        .MergeCells = flexMergeRestrictColumns
        .MergeCol(0) = True
End With
End Sub


A continuación la función que suma todas las columnas que esta muy bien PERO lo que quiero es TAMBIÉN sacar este mismo resultado pero por GRUPOS como lo trate de explicar antes.
Las Variables Suma1 2 3 etc Son funciones que hice para sumar cada columna

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Crear_totales() '
LQ.AddItem "Totales" & vbTab & _
"-------------->" & vbTab & _
suma1 & vbTab & _
suma2 & vbTab & _
suma3 & vbTab & _
suma4 & vbTab & _
suma5 & vbTab & _
suma6 & vbTab & _
suma7 & vbTab & _
suma8 & vbTab & _
0 & vbTab & _
0 & vbTab & _
0 & vbTab & _
suma9 & vbTab & _
suma10 & vbTab & _
"--------------" & vbTab & _
"--------------" & vbTab & _
"--------------" & vbTab & _
"--------------"
call Color_descuadres
End Sub

La función con la que trabajan las variables Suma1,2,3 etc

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub SUMITAS()
On Error GoTo m
With rs1
.MoveFirst
Do Until .EOF
suma1 = suma1 + .Fields(2)
suma2 = suma2 + .Fields(3)
suma3 = suma3 + .Fields(4)
suma4 = suma4 + .Fields(5)
suma5 = suma5 + .Fields(6)
suma6 = suma6 + .Fields(7)
suma7 = suma7 + .Fields(8)
suma8 = suma8 + .Fields(9)
suma9 = suma9 + .Fields(13)
suma10 = suma10 + .Fields(14)
.MoveNext
Loop
End With
rs1.MoveLast
Exit Sub
m:
End Sub


Todas estas funciones las pongo al cargar el formulario
Gracias espero que me eches la manito Amigo (y)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Agrupar DATOS y sumar por grupos mshflexgrid

Publicado por Juan (32 intervenciones) el 01/08/2016 17:57:04
Ya lo solucione gracias a mi mismo
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar