• Viernes 8 de Noviembre de 2024, 05:03

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - rfuentevilla

Páginas: [1]
1
Bases de Datos / Re: Visual Basic Y Sql O Mysql
« en: Sábado 21 de Julio de 2007, 18:51 »
pon lo sigte.:

select * from empleados where clave = '" & text1.text & "'

espero te sirva

 :kicking:

2
VBA / Sub Totales....
« en: Jueves 12 de Julio de 2007, 21:03 »
que tal amigos necesito una ayuda, si alguien me puede ayudar a solucionar un problema que tengo con el DataReport.
Necesito si saber como se pueden colocar los totales de una suma en los pie de páginas de un datareport, es decir sumar las columnas de cada página,
oja me puedan ayudar me urge  :kicking:

3
Visual Basic 6.0 e inferiores / Re: Msflexgrid.removeitem
« en: Sábado 7 de Julio de 2007, 18:52 »
Cita de: "UserCode"
hola muchachos, que tal le ha ido con quien ha hecho uso del .RemoveItem de un MSFlexgrid

Yo lleno un MSFlexgrid en memoria al seleccionar unos Item de un Combobox asi:

Código: Text
  1.  
  2.     MSF.Rows = MSF.Rows + 1
  3.     MSF.Row = MSF.Rows - 1
  4.  
  5.     MSF.Col = 1
  6.     MSF.Text = cmbDescripcion.Text
  7.     
  8.     MSF.Col = 2
  9.     MSF.Text = cmbDesc1.Text
  10.     
  11.     MSF.Col = 3
  12.     MSF.Text = txtMonto1.Text
  13.  
  14.  

Pero no he podido ver bien como armar el codigo sin que de errores del Remover en caso de desear quitar un agregado al MSFlexgrid

Estaba probando algo como esto pero no me ha servido:
Código: Text
  1.  
  2.     For i = 1 To MSF.Rows - 1
  3.         MSF.Row = i
  4.         MSF.Col = i
  5.     Next
  6.     MSF.RemoveItem (MSF.Row)
  7.  
  8.  

Alguien ha logrado o sabe como hacer un correcto uso del RemoveItem del MSFlexgrid sin morir en el intento  :unsure:
 :blink: No te entiendo lo q quieres hacer. de lo que entendi quieres eliminar las filas de un flexgri, si es asi lo que yo he realizadoes lo sigt. :
if msf.rows=2 then
    for pp=0 to msf.cols-1
           msf.textmatrix(1,pp)=""
    next
else
     msf.removeitem(msf.row)
endif

Páginas: [1]