crevilla 01-04-2022, 07:09
Hola a tod@s,
Tal vez muchos ya sepan sobre este pedacito de código a continuación. A mi me tomó bastante tiempo aprender a utilizarlo bien y aquí lo posteo para cualquiera que vaya comenzando su camino y quiera aprender un poco más a usar este control tan útil.
El código sirve para popular un GridView (llamado "gridIzq") con los resultados de un query desde una base de datos. El Gridview muestra los encabezados con los nombres de cada campo del recordset.
y no olvidarse de agregar el siguiente código al evento _Data del GridView:
Espero esto ayude a alguien.
Saluditos,
Yo.
Tal vez muchos ya sepan sobre este pedacito de código a continuación. A mi me tomó bastante tiempo aprender a utilizarlo bien y aquí lo posteo para cualquiera que vaya comenzando su camino y quiera aprender un poco más a usar este control tan útil.
El código sirve para popular un GridView (llamado "gridIzq") con los resultados de un query desde una base de datos. El Gridview muestra los encabezados con los nombres de cada campo del recordset.
Código:
Try rsRecords = Connection.Exec(sQuery)
gridIzq.header = GridView.Horizontal
gridIzq.grid = True
gridIzq.Rows.count = 0
gridIzq.Columns.count = rsRecords.Fields.Count
For iInc = 0 To rsRecords.Fields.Count - 1
iJnc = 1
Do While Mid(rsRecords.Fields[iInc].Name, iJnc, 1) <> "." 'En MySQL el formato es nombreTabla.nombreCampo, así recuperamos el nombre de campo solamente para el Título de la columna
iJnc += 1
Loop
gridIzq.Columns[iInc].Text = Right(rsRecords.Fields[iInc].Name, Len(rsRecords.Fields[iInc].Name) - iJnc)
gridIzq.Columns[iInc].Width = 10 * Len(Right(rsRecords.Fields[iInc].Name, Len(rsRecords.Fields[iInc].Name) - iJnc))
Next
gridIzq.Rows.Count = rsRecords.County no olvidarse de agregar el siguiente código al evento _Data del GridView:
Código:
Public Sub gridIzq_Data(Row As Integer, Column As Integer)
If (rsRecords <> Null) Then
If Row >= 0 Then
rsRecords.moveTo(Row)
Try gridIzq.Data.Text = Str(rsRecords[Column])
Endif
Endif
Catch
Print Error.Text
EndEspero esto ayude a alguien.
Saluditos,
Yo.
gambafeliz 30-03-2022, 16:52
Hola
Estoy echo un lío. Con la manera de rellenar con un texto de varias líneas una celda final de GridView. Por favor, alguien seria tan amable de aclarar mis dudas. Gracias.
Pongo la celda final de un GridView con Width y Height = -1 de esta manera automatizo el ancho, esto parece interesante y funcional, pero ocurre lo siguiente y es lo que deseo aclarar con personas con más experiencia en este tema.
Cuando pongo a lo anterior WordWrap = True, la celda se pone mucho mas grande de lo que se esperaba pero si lo pongo a False, entonces, me ocurre que digamos, la linea tenga o no la tenga del borde, borra el texto casí al final de su base o parte inferior o al principio o parte superior. También me ocurre que queda tapado texto que normalmente lo resuelve WordWrap=True
¿Esto es normal? ¿le ocurre a todo el mundo? ¿se puede solucionar? ¿que opinión me pueden dar al respecto?
==== Solucionado ==================================
La solución es casi perfecta pero con un defecto que doy al final la solución en este texto.
1. WordWrap se debe poner en False. En la celda de Nota
2. .Rows[fila].Height = -1
3. Padding = 10
4. Columns.Width = -1
Y el defecto que queda es que la nota sobrepasa el ancho de la celda (esto se resuelve poniendo scrollBar = Both) de esta forma queda todo bien resuelto.
Estoy echo un lío. Con la manera de rellenar con un texto de varias líneas una celda final de GridView. Por favor, alguien seria tan amable de aclarar mis dudas. Gracias.
Pongo la celda final de un GridView con Width y Height = -1 de esta manera automatizo el ancho, esto parece interesante y funcional, pero ocurre lo siguiente y es lo que deseo aclarar con personas con más experiencia en este tema.
Cuando pongo a lo anterior WordWrap = True, la celda se pone mucho mas grande de lo que se esperaba pero si lo pongo a False, entonces, me ocurre que digamos, la linea tenga o no la tenga del borde, borra el texto casí al final de su base o parte inferior o al principio o parte superior. También me ocurre que queda tapado texto que normalmente lo resuelve WordWrap=True
¿Esto es normal? ¿le ocurre a todo el mundo? ¿se puede solucionar? ¿que opinión me pueden dar al respecto?
==== Solucionado ==================================
La solución es casi perfecta pero con un defecto que doy al final la solución en este texto.
1. WordWrap se debe poner en False. En la celda de Nota
2. .Rows[fila].Height = -1
3. Padding = 10
4. Columns.Width = -1
Y el defecto que queda es que la nota sobrepasa el ancho de la celda (esto se resuelve poniendo scrollBar = Both) de esta forma queda todo bien resuelto.
Ivanovichenco 29-03-2022, 03:17
Tenia gambas3 en ubuntu 1804 y actualice a 2004 y ya no me arranca gambas. lanzo por terminal: lo he desinstalado e instalado desde sudo apt instal gambas3 y snap y nada lo mismo. Como puedo instalar este componente que falta. Perdonen mi ignorancia, que hacia años no tocaba gambas.
Código:
root@ivan-desktop:/home/ivan# gambas3
gbr3: unable to load component: gb.form.printLo
Bienvenido, Invitado
Últimos temas
Krusader. Iconos y tema o...
Foro: Mundo LinuxÚltimo mensaje por: Harpo, 17-10-2025, 12:32
Respuestas: 0 - Vistas: 42
Nuevo manual dinámico...
Foro: WebApp/WebFormsÚltimo mensaje por: Shordi, 15-10-2025, 20:26
Respuestas: 8 - Vistas: 2,150
CMimeTypes: un sustituto ...
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: Shordi, 15-10-2025, 13:07
Respuestas: 1 - Vistas: 94
Libarchive para Gambas
Foro: Controles/Librerías/ComponentesÚltimo mensaje por: tincho, 13-10-2025, 21:07
Respuestas: 3 - Vistas: 404