Especie de facturador
Hola necesito hacer un especie de facturador y estoy aprendiendo visual basic, no como encararlo y deseo ver como puedo empezar bibliografía o un código de ejemplo. Ya tengo la bd armada y deseo seleccionar un elemento de esto y que me lo sume en un total general, con la ventaja que no debo registrar la transacción ya que es un modulo para hacer presupuestos
1 Respuesta
Respuesta de kieleze
1
Private Sub cmdMostrarAreas_Click()
Dim ListItemAreas As ListItem
Dim promedio As Integer
CargarSelectAreas
With rstAreas
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados", vbInformation, "INFORMACION"
Else
cmdImprimir.Enabled = True
' Mostrar los datos hallados
ListView2.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set ListItemAreas = ListView2.ListItems.Add(, , .Fields("cod_area") & "")
ListItemAreas.SubItems(1) = .Fields("dsc_area") & ""
ListItemAreas.SubItems(2) = .Fields("Abiertos") & ""
ListItemAreas.SubItems(3) = .Fields("Cerrados") & ""
If .Fields("Cerrados") = 0 Then
promedio = 0
Else
promedio = .Fields("TotalTiempo") / .Fields("Cerrados")
End If
ListItemAreas.SubItems(4) = promedio & ""
.MoveNext
Loop
End If
End With
End Sub
Es mejor hacerlo con el listview... ya que el datagrid es para mostrar desde la base de datos ... pero no tiene mucha funcionalidad a la hora de hacer sumas y esas cosas.. entre los registros seleccionados...
Es más cómodo hacer el recordset y luego ir agregándolo sumando lo que haga falta al listview.
como me pides ejemplos de datagrid... Te paso algunas direcciones...
http://guille.costasol.net/indice.asp
http://www.geocities.com/vbp_es/index1.htm
http://www.geocities.com/vbp_es/index1.htm
http://personales.com/espana/granada/vbpedrojose/vbpedrojose.html
http://www.portalvb.com/
http://www.planet-source-code.com/
http://www.lorenzoservidor.com.ar/compu01/progra.htm
Dim ListItemAreas As ListItem
Dim promedio As Integer
CargarSelectAreas
With rstAreas
' Si no hay datos...
If (.BOF And .EOF) Then
MsgBox "No se han encontrado los datos buscados", vbInformation, "INFORMACION"
Else
cmdImprimir.Enabled = True
' Mostrar los datos hallados
ListView2.ListItems.Clear
.MoveFirst
Do While Not .EOF
Set ListItemAreas = ListView2.ListItems.Add(, , .Fields("cod_area") & "")
ListItemAreas.SubItems(1) = .Fields("dsc_area") & ""
ListItemAreas.SubItems(2) = .Fields("Abiertos") & ""
ListItemAreas.SubItems(3) = .Fields("Cerrados") & ""
If .Fields("Cerrados") = 0 Then
promedio = 0
Else
promedio = .Fields("TotalTiempo") / .Fields("Cerrados")
End If
ListItemAreas.SubItems(4) = promedio & ""
.MoveNext
Loop
End If
End With
End Sub
Es mejor hacerlo con el listview... ya que el datagrid es para mostrar desde la base de datos ... pero no tiene mucha funcionalidad a la hora de hacer sumas y esas cosas.. entre los registros seleccionados...
Es más cómodo hacer el recordset y luego ir agregándolo sumando lo que haga falta al listview.
como me pides ejemplos de datagrid... Te paso algunas direcciones...
http://guille.costasol.net/indice.asp
http://www.geocities.com/vbp_es/index1.htm
http://www.geocities.com/vbp_es/index1.htm
http://personales.com/espana/granada/vbpedrojose/vbpedrojose.html
http://www.portalvb.com/
http://www.planet-source-code.com/
http://www.lorenzoservidor.com.ar/compu01/progra.htm
No quiero molestarte con tonteras pero no tendrías un ejemplo para poder orientarme con el manejo del datagrid. Desde ya muchas gracias. Diego (Mza).
Acá te paso una página que tiene ejemplos que te pueden servir...
Por ejemplo manejar datagrid..
Listview... si quieres hacerlo a mano...
Tal vez según lo que estoy leyendo solamente necesitas tomar los datos en un arreglo y sumarlos ya que no tienes que guardar en la base...
Creo que con eso estaría bien
Aparte se haría más fácil el código
Por ejemplo manejar datagrid..
Listview... si quieres hacerlo a mano...
Tal vez según lo que estoy leyendo solamente necesitas tomar los datos en un arreglo y sumarlos ya que no tienes que guardar en la base...
Creo que con eso estaría bien
Aparte se haría más fácil el código
