Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   Visual Basic clásico (http://www.forosdelweb.com/f69/)
-   -   Ayuda con el Flex Grid (http://www.forosdelweb.com/f69/ayuda-con-flex-grid-546069/)

rishart 07/01/2008 15:00

Ayuda con el Flex Grid
 
Hola soy algo nuevo en en esto de la programacion en visual basic pero me esta interesando mucho el tema por ello me gustaria si alguien puede ayudarme con mi problema ya que no tengo ni la menor idea de como hacerlo

la problematica es que no se como poner un flexgrid a mi sistema ni como configurarlo para que me muestre los datos que estan en la BD de donde y como delarar las variables para el flex y como puedo hacer que estos datos se puedan graficar??? apreciaria mucho su gran ayuda graciassss....:-)

GeoAvila 07/01/2008 15:33

Re: Ayuda con el Flex Grid
 
en la opción DataSource le podes asignar un Odbc

nos vemos.

fede_rosario 09/01/2008 10:49

Re: Ayuda con el Flex Grid
 
haber lo que yo hago es esto
le creo una mascara el flex osea como quiero que aparesca ,asi:
Private Sub configurar_grilla()
With MSFlexGrid1
.Clear
.Rows = 2
.FixedRows = 1
.FixedCols = 0
.Cols = 4
.Rows = 2
.FormatString = "Código |Descripción |Cantidad |Proveedor |Total/Articulo "
End With
End Sub
la cual la podes llamar cuando inicias el form en form_load ej

Private Sub Form_Load()
configurar_grilla
End Sub

despues para llenar el flex con los datos en mi caso hago una consulta la vuelco a un recordset u se la asigno al flex ej

Dim rsbal As New ADODB.Recordset
Dim cod_ocup As Integer
mensaje.Visible = True
lbldatos.Visible = True
lbldatos.caption = "Espere ...Procesando Datos "
DoEvents
txttotal.Text = ""
MSFlexGrid1.Clear
If fami Then
configurar_grilla2
sql = "select * from cliente order by idcliente"
rsbal.Open sql, cn, adOpenKeyset, adLockOptimistic
If rsbal.RecordCount < 1 Then
GoTo sale:
End If
Cant_reg = rsbal.RecordCount
rsbal.MoveFirst
Do While Not rsbal.EOF
cod_ocup = Mid(rsbal("ocup"), 1, 1)
MSFlexGrid1.AddItem rsbal.Fields("idcliente") & vbTab & rsbal.Fields("Apellido") & cod_ocup & vbTab & rsbal.Fields ("documento")
rsbal.MoveNext
Loop
rsbal.Close
txttotal.Text = Cant_reg
impfac = True
End If

fijate alomejor me explico muy a los apurones y no entendiste nada cualkier cosa avisa todo bien, exitos fede


La zona horaria es GMT -6. Ahora son las 10:25.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.