Ancho de columna en data grid

12/04/2006 - 01:43 por Hugo Gsell | Informe spam
Uso visual basic .net versión 7.1.3088 con framework 1.1
Tengo el sigueinte código... que muestra un datagrid.. con datos de una
tabla (kTable)...
¿Como hago con esta sintaxis y objetos que utilizo para cambiar el ancho de
una columna?

Dim kTable As DataTable
kTable = cPaciente.Tabla("SELECT Ficha.Fecha,Ficha.Dni,Ficha.Clave FROM
ficha ORDER BY Fecha,Dni,Clave")
Flex.AllowSorting = True
Flex.Location = New Point(15, 15)
Flex.CaptionText = "Ayuda de busqueda ..."
Flex.DataSource = kTable
Flex.Visible = True
Flex.Focus()
 

Leer las respuestas

#1 Luis Miguel Blanco
12/04/2006 - 14:39 | Informe spam
Hola Hugo

Prueba a utilizar un estilo para el datagrid, que a su vez contenga un
estilo para cada una de las columnas, y en este estilo de columna le asignas
el ancho. Te adjunto un bloque de código con un ejemplo:

'/////////////////////////////////////////
' crear un estilo para el datagrid y para sus columnas
Dim oEstiloGrid As DataGridTableStyle = New DataGridTableStyle
oEstiloGrid.MappingName = "NombreTabla"

Dim oEstiloCol As DataGridTextBoxColumn = New DataGridTextBoxColumn
oEstiloCol.MappingName = "NombreColumna"
oEstiloCol.HeaderText = "Título columna"
' en la siguiente línea asignamos el ancho de columna
oEstiloCol.Width = 85

' creas el resto de columnas siguiendo el mismo patrón
'

' agregar columnas al estilo, y el estilo al datagrid
oEstiloGrid.GridColumnStyles.AddRange(New DataGridColumnStyle() _
{oEstiloCol,... y el resto de objetos de estilo de columna})

Flex.TableStyles.Add(oEstiloGrid)
'/////////////////////////////////////////

Espero que te sea de ayuda.
Un saludo
Luis Miguel Blanco
http://www.dotnetmania.com


"Hugo Gsell" wrote:

Uso visual basic .net versión 7.1.3088 con framework 1.1
Tengo el sigueinte código... que muestra un datagrid.. con datos de una
tabla (kTable)...
¿Como hago con esta sintaxis y objetos que utilizo para cambiar el ancho de
una columna?

Dim kTable As DataTable
kTable = cPaciente.Tabla("SELECT Ficha.Fecha,Ficha.Dni,Ficha.Clave FROM
ficha ORDER BY Fecha,Dni,Clave")
Flex.AllowSorting = True
Flex.Location = New Point(15, 15)
Flex.CaptionText = "Ayuda de busqueda ..."
Flex.DataSource = kTable
Flex.Visible = True
Flex.Focus()



Preguntas similares