tamaño de columnas en datagrid

en ese codigo que muestras te hace falta darle el datasource al datagrid,
antes de anexarle el tablestyle con las columnas fomateadas, es decir

adpco.Fill(dscla, "Muestra_Valores")
datagrid1.datasource = dscla.datatable("Muestra_Valores")


,.luego pones el codigo que sigue
si se presentan mas problemas platicalos y vemos como los solventamos,
suerte


"Francisco" escribió en el mensaje
news:019401c4e17c$fe6babc0$
Que tal amigos del foro!!!
Tengo el siguiente problemilla: como hacer para cambiarle
el tamaño de las columnas del datgrid (ya se que lo han
preguntado mucho, pero no funciona)que estoy haciendo mal,
lo que tengo es lo siguiente:

adpco.Fill(dscla, "Muestra_Valores")
' no se si tengo que poner el datasource o ya no???
Dim Tbls As New DataGridTableStyle()
Tbls.MappingName = "muestra_valores"

'COLUMNA:0
Dim col0 As New DataGridTextBoxColumn()
With col0
.MappingName = "cantidad" 'nombre del campo en
la tabla
.HeaderText = "CANTIDAD" 'Nombre de la columna
.Width = 75 'ancho de la columna
.ReadOnly = True
End With
Tbls.GridColumnStyles.Add(col0)

Dim col1 As New DataGridTextBoxColumn()
With col1
.MappingName = "nombre" 'nombre del campo en
la tabla
.HeaderText = "DESCRIPCIÓN" 'Nombre de la
columna
.Width = 150 'ancho de la columna
.ReadOnly = True
End With
Tbls.GridColumnStyles.Add(col1)

Dim col2 As New DataGridTextBoxColumn()
With col2
.MappingName = "nombrec" 'nombre del campo en
la tabla
.HeaderText = "CLASE" 'Nombre de la columna
.Width = 50 'ancho de la columna
.ReadOnly = True
End With
Tbls.GridColumnStyles.Add(col2)

Dim col3 As New DataGridTextBoxColumn()
With col3
.MappingName = "preciou" 'nombre del campo en
la tabla
.HeaderText = "P.U." 'Nombre de la columna
.Width = 30 'ancho de la columna
.ReadOnly = True
End With
Tbls.GridColumnStyles.Add(col3)

Dim col4 As New DataGridTextBoxColumn()
With col4
.MappingName = "importe" 'nombre del campo en
la tabla
.HeaderText = "IMPORTE" 'Nombre de la columna
.Width = 40 'ancho de la columna
.ReadOnly = True
End With
Tbls.GridColumnStyles.Add(col4)
DataGrid1.TableStyles.Add(Tbls)