Sumar columna de un datagrid en vb6

Estoy realizando un pequeño sistema y en formulario se cargan las ventas en un datagrid, ese datagrid tiene una columna de totales y otra de idvendedor, lo que necesito es sumar esos totales pero después de realizar un filtro por vendedor y que la suma me muestre en un textbox. Es decir que al ingresar un idvendedor en un textbox en otro textbox me muestre cuanto vendió ese vendedor. Lo de filtrar el vendedor no hay problema, el problema es con la suma.

1 respuesta

Respuesta
2
Debe recorrer cada fila del datagrid, en cada fila selecciona la columna del importe, lo conviertes a número, lo sumas a una variable, al terminar toda la grilla entonces al textbox, le asignas el contenido del total como una cadena.
Lo que ocurre es que el Datagrid no tiene la propiedad Rows que indica el número de filas pero se puede utilizar la propiedad ApproxCount la cual contiene el numero aproximado de filas de la cuadricula.
Sería algo como esto :
Dim Total As Currency
Dim Valor As Currency
Private Sub Sumar_Importe()
    Total = 0
    DataGrid1.Col = 7  ' Suponemos columna del importe
    For I = 1 To DataGrid1.ApproxCount
        DataGrid1.Col = 7
        DataGrid1.Row = I
        Valor = CCur(DataGrid1.Text)
        Total = Total + Valor
    Next I
    Text1 = Format(Total, "###,###,###.###.00")
End Sub
Suerte !
Reenvío la respuesta pues aparentemente ocurrió un problema.
Suerte !
Muy buena la respuesta. Gracias por responder. Pregunto: ¿Seria más fácil hacer esto de sumar una columna si en vez del datagrid lo hago con MSHFlexGrid? y si es así, ¿Cómo seria?.
Sería de la misma forma, cambiando el nombre del control y utilizando la propiedad Rows que contiene el total de filas.
Dim Total As Currency
Dim Valor As Currency
Private Sub Sumar_Importe()
    Total = 0
    For I = 1 To MSHFlexGrid1.Rows       
        MSHFlexGrid1.Col = 7 ' Col de importe
        MSHFlexGrid1.Row = I
        Valor = CCur(MSHFlexGrid1.Text)
        Total = Total + Valor
    Next I
    Text1 = Format(Total, "###,###,###.###.00")
End Sub 
El ejemplo está hecho partiendo que dicho control tiene una fila fija (fila 0) o de títulos.
Suerte !
Gracias por la respuesta. Te comento con el datagrid funciona de diez, pero con el MSHflexgrid, no. Es decir no funciona si aplico el filtro, ya que yo lo único que quiero es que me sume los de un vendedor en particular y no toda la columna. Pero le voy a estudiar y si no le encuentro una solución t estaré molestando nuevamente, o si tienes alguna idea será bienvenida. Muchas Gracias
Pues si funciona con el Datagrid me parece genial; lo que no se es si la propiedad Approxcount muestra las filas reales (supongo que sí) los manuales dicen que muestra el numero aproximado de filas, pero si realizamos diferentes consultas y revisamos las filas podemos establecer si el dato es real o aproximado.
Creo que ya debería cerrar la pregunta.
Suerte !

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Diseño de un datagrid

Estoy programando con visual basic y utilizo el control datagrid, para presentar la información contenida en varios campos de una tabla de access. El problema es que he visto controles en otros lenguajes de programación que permiten la posibilidad de...
1 respuesta

Problemas al sumar columna de DataGrid en VB6

Tengo problemas con la suma de una columna de un DataGrid. El código realiza bien la operación con las celdas visibles de la columna de DG, cuando hay filas no visibles aparece error 6148 - Número de fila incorrecto. El código que tengo para sumar la...
1 respuesta

Importar de un datagrid a mysql

Disculpa pero tengo problemas con insertar datos en mi tabla en mysql tengo el siguiente código el cual recorre mi datagrid el cual contiene lo datos que voy a insertar 'Definimos dos arrays de String, C,f y t, que contendrn, respectivamente, los...
1 respuesta

Eliminar Filas MshFlexgrid

Soy nuevo en esto de visual Basic 6.0 y necesito una ayudita. Estoy trabajando con mshflexgrid de Visual Basic 6.0, de la cual necesito eliminar cualquiera de las filas que previamente seleccione, necesito un ejemplo donde pueda eliminar esa fila que...
1 respuesta

Sumar una columna de mi Msflexgrid

Tengo un pequeño "Form" el cual tiene un "Msflexgrid" y ya tengo en código que suma todas las filas y me da un total de todos los registros, pero necesito sumar una columna (13) que tiene la cantidad de libros por consiguiente tengo la cantidad de...
1 respuesta

Control msflexgrid

Quisiera un pequeño empujoncito tengo un punto de venta los datos que busco en los text son agregados al msflex grid los datos que tengoi son artículos al cual tengo un text donde ingreso la cantidad y esa cantidad es multiplicada por el precio...
1 respuesta

Desplazar MSHflexgrid automaticamente

Estoy trabajando en Visual Basic 6.0 y tengo una consulta referente a un MSHflexgrid... Lo que sucedes que es inicialmente tengo este control inicializado con rows=2 y a la medida que llenos toda la fila con datos, agrego una fila nueva en donde irán...
2 respuestas

Enviar Datos cargados en datagrid a excel

Quisiera que me ayudes con este tema, tengo cargados datos de una base (en access), que visualizo los valores en un datagrid y esos datos quiero exportarlos a foramto excel, no se sabia como así que en la web, encontré un código fuente que hace lo...
2 respuestas

Mostrar una suma de más de 24 horas

Cunato con un datagrid que me muestra los emplados y horas que trabajo, mediante este código sumo una columna de horas extras Private Sub Text2_Click() Dim i As Integer Dim ret As Date DataGrid1.Row = 0 'Recorremos todos los datos de la columna en la...
1 respuesta

Objeto datagrid en vb

A la comunidad la verdad que no se mucho de esto. Mi problema es el siguiente: estoy desarrollando una aplicación en vb 6.0 en la cual utilizo un datagrid y varios textbox. Lo que quiero hacer es que al dar un doble clic sobre una fila en el datagrid...
1 respuesta