Hola, estoy metiendome en el mundo del punto net, y la verdad es que estoy
complicado
antes en vb6 hacia esto con el MSHfelxgrid y resultaba.
Sub SetearCli()
With FlexCli
.ColWidth(0) = 200
.ColWidth(1) = 1500
.ColWidth(2) = 2900
.ColWidth(3) = 900
'Cabeceras
.TextMatrix(0, 0) = ""
.TextMatrix(0, 1) = "Rut"
.TextMatrix(0, 2) = "Nombre"
.TextMatrix(0, 3) = "Fono"
End With
End Sub
Sub CargaCli()
Carga_Tabla ' se conecta a la base y llena recordset
C = 1
Do While Not Tab_Cli.EOF
With FrmMaestrocli.FlexCli
.AddItem Row
.TextMatrix(C, 1) = Tab_Cli!Rut_Cli
.TextMatrix(C, 2) = Tab_Cli!Nom_Cli
.TextMatrix(C, 3) = Tab_Cli!Fon_Cli
End With
C = C + 1
Tab_Cli.MoveNext
Loop
End Sub
Leer las respuestas