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. 
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.Count

y 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
End

Espero 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.
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 
Páginas (566):    1 318 319 320 321 322 566   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 295
Último miembro: ncofre98
Temas del foro: 1,748
Mensajes del foro: 9,072
Últimos temas
Problemas con las interru...
Foro: General
Último mensaje por: guizans, 14-12-2025, 18:40
Respuestas: 5 - Vistas: 240
Scrolling un ScrollArea
Foro: Controles/Librerías/Componentes
Último mensaje por: Shordi, 12-12-2025, 07:24
Respuestas: 5 - Vistas: 252
Ordenar en un TableView
Foro: General
Último mensaje por: guizans, 08-12-2025, 23:06
Respuestas: 9 - Vistas: 946
Resultados dispares según...
Foro: Bases de Datos
Último mensaje por: guizans, 04-12-2025, 22:49
Respuestas: 6 - Vistas: 402
Mover un Result a una pos...
Foro: Bases de Datos
Último mensaje por: guizans, 30-11-2025, 19:25
Respuestas: 2 - Vistas: 227
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.