Hola chicos, voy directamente al grano.

Tengo esta definició de un tableview.

LstProductos.Columns.Count = 5

  LstProductos.Columns[0].width = 1
  LstProductos.Columns[0].Text = "Orden"
  
  LstProductos.Columns[1].width = 150
  LstProductos.Columns[1].Text = "Descripcion"
  LstProductos.Columns[1].Alignment = 3
  
  LstProductos.Columns[2].width = 50
  LstProductos.Columns[2].Alignment = 3
  LstProductos.Columns[2].Text = "Coste"
  
  LstProductos.Columns[3].width = 50
  LstProductos.Columns[3].Text = "Pvp Rec."
  LstProductos.Columns[3].Alignment = 3

  LstProductos.Columns[4].width = 50
  LstProductos.Columns[4].Text = "Precio"
  LstProductos.Columns[4].Alignment = 3

  LstProductos.Width = 350

En principio todo deveria de ir bien,y dijo deberia porque en la columna orden me pone por lo menos una longitud de 200 y npo consigo que se vean todos los datos en el tableview,m se supone que tiene espacio de sobra para que se vean.

Así, sin más, puede ser de muchas cosas, por ejemplo, mírate la definición del campo en la base de datos. Pero es imposible ayudarte con sólo esa información. Intenta hacer un pequeño proyecto donde se reproduzca el error y podremos ayudarte.

Saludos.

===================
No podemos regresar

Al problar el tu codigo, no es visible la rejilla del objecto TableView.
He tenido cambiarlo asì:


...una pregunta: porque el valor de TableView1.Columns[0].width es 1 ?  

Les pongo unos pantallazos ;

Esta es la BDD



Esta es la Definicion en el formulario



Este es el resultado



Espero que esto les ayude a ayudarme, gracias de antemano

Supongo que usas MySQL.
Bigint no es un tipo de datos que gambas reconozca así a bote pronto.
No utilizo el control Tablview, por lo que no sé si es un bug del mismo o del driver de mysql, pero prueba a cambiar eso de bigint por un Integer. No creo que tu base de datos llegue a tener registros como para que se te quede pequeño.

Si el problema persiste, miramos otras cosas.

Saludos

===================
No podemos regresar

Bueno shordi, he cambiado el bigint a int(10) y como me imaginaba no ha echo ni sensación, os posteo otro fragmento de codigo que tengo en el mismo programa y me funciona perfectamente, sinceramente yo no le veo el error.

Public Sub Form_Open()

  Dim btn As Button
  Dim Registros As Integer
  Dim i As Integer

  Me.Center

  ConectaBDD.Conectar

  ColumnEmpleados.Columns.Count = 3
  
  ColumnEmpleados.Columns[0].Text = "Codigo"
  ColumnEmpleados.Columns[1].Text = "Empleado"
  ColumnEmpleados.Columns[1].Width = 150
  ColumnEmpleados.Columns[2].Text = "Categoria"

    ConectaBDD.Hres = ConectaBDD.Hcon.Exec("select * from Cargos")

    For i = 1 To ConectaBDD.Hres.Count - 1
        CmbCategoria.Add(Upper(ConectaBDD.Hres!Descripcion))
        ConectaBDD.Hres.MoveNext
    Next

    ConectaBDD.Hres = ConectaBDD.Hcon.Exec("select * from Empledos")

    For i = 0 To ConectaBDD.Hres.Count - 1  

      ColumnEmpleados.Add(i, ConectaBDD.Hres!Codigo)
      ColumnEmpleados[i][1] = ConectaBDD.Hres!NOMBRE
      ColumnEmpleados[i][2] = ConectaBDD.Hres!PUESTO
      CmbNombre.Add(ConectaBDD.Hres!NOMBRE)

      ConectaBDD.Hres.MoveNext

    Next
    ConectaBDD.Hcon.Close

End

Bueno. Prueba a no poner ningún ancho en absoluto. O ponles -1 de ancho. Eso calcula el ancho automático para el gridview, que es un componente del tableview. Si aún así no funciona, sube el proyecto donde te pase (con el formulario que falla es suficiente) Más no te puedo decir sin ver más.

Saludos.

===================
No podemos regresar

Bueno shordi ahí tienes el formulario entero, a ver si se te ocurre algo, porfa.

La manera de usar un tableView no es esa.
Si tú cargas todo el contenido de la tabla en memoria (imagina que tienes 20.000 registros) la lentitud sería enorme y el consumo de memoria disparatado.

La clase TableView, igual que Gridview, habilita un evento llamado "data" que se lanza automáticamente cada vez que es necesario sincronizar los datos entre ambos.

La manera correcta de utilizar un tableview es usando ese evento. Te adjunto un pequeño proyecto que recrea tu tabla en una base de sqlite y que te muestra un tableview con ella.
El código quedaría así:


Como ver hemos sincronizado el tableview con la tabla de datos y el evento data se encarga de mantenerlo así. Es decir, si te mueves por debajo de las líneas visibles, las nuevas líneas aparecerán sin problemas.

Descargatelo, pruébalo y me cuentas

Saludos

===================
No podemos regresar

Bueno ya lo solucione, lo he arreglado con un  Tablaview, a continuaciṕn os pongo el código u un pantallazo por si puede servirle a alguien.


Public Sub Form_Open()

Dim Linea As Integer

Me.Center

TableVerDatos.Columns.count = 5 ' - - - - > definimos cantidad de columnas

TableVerDatos.header = 1 '- - - - > definimos la cantidad de filas dedicadas a cabecera
TableVerDatos.Columns[0].text = "Codigo"
TableVerDatos.columns[0].Width = 50
TableVerDatos.columns[1].text = "Descripcion"
TableVerDatos.columns[1].Width = 200
TableVerDatos.columns[2].text = "Coste"
TableVerDatos.columns[2].Width = 50
TableVerDatos.columns[3].text = "PVR"
TableVerDatos.columns[3].Width = 50
TableVerDatos.columns[4].text = "Precio"
TableVerDatos.columns[4].Width = 50


ConectaBDD.Conectar
ConectaBDD.Hres = ConectaBDD.Hcon.Exec("Select * from Productos order by Codigo")
TableVerDatos.rows.count = ConectaBDD.Hres.Count

For linea = 0 To ConectaBDD.Hres.Count - 1
   TableVerDatos[Linea, 0].text = ConectaBDD.Hres!Codigo
   TableVerDatos[Linea, 1].text = ConectaBDD.Hres!Descripcion
   TableVerDatos[Linea, 2].text = ConectaBDD.Hres!Coste
   TableVerDatos[Linea, 3].text = ConectaBDD.Hres!PVR
   TableVerDatos[Linea, 4].text = ConectaBDD.Hres!Precio
  
   ConectaBDD.Hres.MoveNext
Next

End




Muchas gracias a todos por vuestra ayuda.