Cambiar Ancho de Columnas en DataGrid

Consulta la ayuda sobre GridTableStyles

lamentablemente hace un rato que no utilizo el DataGrid y no tengo muy
presente el tema, pero a grandes razgos se trata de lo siguiente

Defines variables GridTexBoxColumn (algo asi), estableces el Mapping al
campo de la tabla, estableces el HeaderCaption para el titulo de la columna,
y la propiedad Size, tambien puedes formatear columnas númericas o de
fecha... creas una variable para cada columna...
Luego Creas una Variable GridTableStyles en donde agregas las diferentes
columnas con el metodo AddColumn (algo asi)

y por ultimo agregas tu variable GridTableStyles a la coleccion TableStyles
del Datagrid, de esta forma puedes definir no solo el ancho, si no tambien
que columnas son visibles, el orden en el que aparecerán y los formatos de
cada una de ellas

Espero te sea de utilidad y disculpa las inpresiciones, la verdad yo utilizo
otro grid (de terceros)

Saludos
Carlos Durán

"Jorge Landaeta" escribió en el
mensaje news:

Buenas Tardes, yo estoy llenado un DataGrid a través de un DataSet.

¿Es posible Cambiar el ancho de las columnas de un DataGrid?
¿Es posible tener diferentes tamaños para las distintas columnas del
mismo?

Gracias

Atte. Jorge Landaeta K.

Como estas...aqui te paso un ejemplillo pero puedes buscar en el web hay
muchos temas respecto de TableStyle

Espero te sirva

Private Sub Carga_Grid()
DataGrid1.DataSource = DataSet1.Tables(0)
DataGrid.TableStyles.add(Col_Grid(DataSet1))
end sub

Private function Col_Grid( Datos as DataSet) as DataGridTableStyle
dim Tabla as new DataGridTableStyle
dim Col as new DataGridTextBoxColumn
Tabla.mapping = Datos.tables(0).tablename

Col.mapping = Datos.tables(0).Columns("CodigoCliente")
Col.width = 40
Col.header = "Codigo del Cliente"
Tabla.ColumnStyles.add(Col)

Col = new DataGridTexboxColumn
Col.mapping = Datos.tables(0).Columns("NombreCliente")
Col.width = 200
Col.header = "Nombre del Cliente"
Tabla.ColumnStyles.add(Col)

Return Tabla
End Function


"Jorge Landaeta" escribió en el
mensaje news:

Buenas Tardes, yo estoy llenado un DataGrid a través de un DataSet.

¿Es posible Cambiar el ancho de las columnas de un DataGrid?
¿Es posible tener diferentes tamaños para las distintas columnas del
mismo?

Gracias

Atte. Jorge Landaeta K.

Imac, traté de utilizar el código que me pasaste pero en esta parte:

dim Tabla as new DataGridTableStyle
dim Col as new DataGridTextBoxColumn
Tabla.mapping = Datos.tables(0).tablename

Col.mapping = Datos.tables(0).Columns("CodigoCliente")

Me dice que mapping no está definido, lo que aparece es MappingName y al
colocarle esto me dice que "Un valor de System.Data.Datacolumn no puede ser
conertido en '2'"

¿A qué se deberá éste error? ¿Qué estaré haciendo mal?

Atte. Jorge Landaeta


"Imac_man" escribió:

Como estas...aqui te paso un ejemplillo pero puedes buscar en el web hay
muchos temas respecto de TableStyle

Espero te sirva

Private Sub Carga_Grid()
DataGrid1.DataSource = DataSet1.Tables(0)
DataGrid.TableStyles.add(Col_Grid(DataSet1))
end sub

Private function Col_Grid( Datos as DataSet) as DataGridTableStyle
dim Tabla as new DataGridTableStyle
dim Col as new DataGridTextBoxColumn
Tabla.mapping = Datos.tables(0).tablename

Col.mapping = Datos.tables(0).Columns("CodigoCliente")
Col.width = 40
Col.header = "Codigo del Cliente"
Tabla.ColumnStyles.add(Col)

Col = new DataGridTexboxColumn
Col.mapping = Datos.tables(0).Columns("NombreCliente")
Col.width = 200
Col.header = "Nombre del Cliente"
Tabla.ColumnStyles.add(Col)

Return Tabla
End Function


"Jorge Landaeta" escribió en el
mensaje news:
> Buenas Tardes, yo estoy llenado un DataGrid a través de un DataSet.
>
> ¿Es posible Cambiar el ancho de las columnas de un DataGrid?
> ¿Es posible tener diferentes tamaños para las distintas columnas del
> mismo?
>
> Gracias
>
> Atte. Jorge Landaeta K.

Con respecto a este tema, es posible que los títulos de las columnas queden
centrados y que no sigan la ubicación de los datos ?

Gracias.

"Imac_man" escribió en el mensaje
news:%

Como estas...aqui te paso un ejemplillo pero puedes buscar en el web hay
muchos temas respecto de TableStyle

Espero te sirva

Private Sub Carga_Grid()
DataGrid1.DataSource = DataSet1.Tables(0)
DataGrid.TableStyles.add(Col_Grid(DataSet1))
end sub

Private function Col_Grid( Datos as DataSet) as DataGridTableStyle
dim Tabla as new DataGridTableStyle
dim Col as new DataGridTextBoxColumn
Tabla.mapping = Datos.tables(0).tablename

Col.mapping = Datos.tables(0).Columns("CodigoCliente")
Col.width = 40
Col.header = "Codigo del Cliente"
Tabla.ColumnStyles.add(Col)

Col = new DataGridTexboxColumn
Col.mapping = Datos.tables(0).Columns("NombreCliente")
Col.width = 200
Col.header = "Nombre del Cliente"
Tabla.ColumnStyles.add(Col)

Return Tabla
End Function


"Jorge Landaeta" escribió en el
mensaje news:
> Buenas Tardes, yo estoy llenado un DataGrid a través de un DataSet.
>
> ¿Es posible Cambiar el ancho de las columnas de un DataGrid?
> ¿Es posible tener diferentes tamaños para las distintas columnas del
> mismo?
>
> Gracias
>
> Atte. Jorge Landaeta K.

ok, te corrijo el codigo

dim Tabla as new DataGridTableStyle
dim Col as new DataGridTextBoxColumn

Tabla.mappingname = Datos.tables(0).tablename

Col.mappingname = Datos.table(0).Columns("CodigoCliente").tostring

Espero que funcione ahora


"Jorge Landaeta" escribió en el
mensaje news:

Imac, traté de utilizar el código que me pasaste pero en esta parte:

dim Tabla as new DataGridTableStyle
dim Col as new DataGridTextBoxColumn
Tabla.mapping = Datos.tables(0).tablename

Col.mapping = Datos.tables(0).Columns("CodigoCliente")

Me dice que mapping no está definido, lo que aparece es MappingName y al
colocarle esto me dice que "Un valor de System.Data.Datacolumn no puede
ser
conertido en '2'"

¿A qué se deberá éste error? ¿Qué estaré haciendo mal?

Atte. Jorge Landaeta


"Imac_man" escribió:

Como estas...aqui te paso un ejemplillo pero puedes buscar en el web hay
muchos temas respecto de TableStyle

Espero te sirva

Private Sub Carga_Grid()
DataGrid1.DataSource = DataSet1.Tables(0)
DataGrid.TableStyles.add(Col_Grid(DataSet1))
end sub

Private function Col_Grid( Datos as DataSet) as DataGridTableStyle
dim Tabla as new DataGridTableStyle
dim Col as new DataGridTextBoxColumn
Tabla.mapping = Datos.tables(0).tablename

Col.mapping = Datos.tables(0).Columns("CodigoCliente")
Col.width = 40
Col.header = "Codigo del Cliente"
Tabla.ColumnStyles.add(Col)

Col = new DataGridTexboxColumn
Col.mapping = Datos.tables(0).Columns("NombreCliente")
Col.width = 200
Col.header = "Nombre del Cliente"
Tabla.ColumnStyles.add(Col)

Return Tabla
End Function


"Jorge Landaeta" escribió en el
mensaje news:
> Buenas Tardes, yo estoy llenado un DataGrid a través de un DataSet.
>
> ¿Es posible Cambiar el ancho de las columnas de un DataGrid?
> ¿Es posible tener diferentes tamaños para las distintas columnas del
> mismo?
>
> Gracias
>
> Atte. Jorge Landaeta K.