USO DEL DATABINGINS y TableStyles

Programadamente con un cilco que lea los campos de la tabla y añada las
columnas al TableStyles


For i = 0 To Tabla.Columns.Count - 1
Dim TextCol As New DataGridTextBoxColumn
TextCol.MappingName = dt.Columns(i).ColumnName
TextCol.HeaderText = dt.Columns(i).ColumnName
TableStyle.GridColumnStyles.Add(TextCol)
Next

Saludos
Carlos Durán


"kirck" escribió en el mensaje
news:%

Tengo 2 preguntas:
1.- como se usa el Databindings
2.- como puedo hacer que el TableStyles de mi DataGrid tenga la misma
presentacion que la tabla que asigne en el DataMember, mediante un proceso
mas rapido que ir tomando uno a uno cada campo.
Gracias por la ayuda


Kirck

Hola.
Te cuento que hasta ahora no he encontrado nada para
definir en windows un TableStyle en diseño, así que
implementé una función simple para esto.


Public Sub FormatGenerico(ByVal Grilla As DataGrid, ByVal
fuente As DataTable) As Boolean
Dim i As Integer = 0
Grilla.TableStyles.Clear()
Dim EstiloGrilla As New DataGridTableStyle
EstiloGrilla.MappingName =
fuente.TableName 'Estilo de la Grilla, para la tabla
maestra de terceros de facturación
Dim column As New DataGridTextBoxColumn
While i < fuente.Columns.Count
If fuente.Columns(i).Caption <> "." Then
column = New DataGridTextBoxColumn
column.MappingName = fuente.Columns
(i).ColumnName
column.HeaderText = fuente.Columns
(i).Caption
column.Width = fuente.Columns
(i).Caption.Length * 15
EstiloGrilla.GridColumnStyles.Add(column)
End If
i += 1
End While
Grilla.TableStyles.Add(EstiloGrilla)
End Function

huuuu!!! ... super buena la funcion te lo agradesco, esto puede ahorrarme
mucha tiempo
gracias de veras Francisco

"Francisco Rodríguez" escribió en el
mensaje news:7b2f01c52675$9c24e560$
Hola.
Te cuento que hasta ahora no he encontrado nada para
definir en windows un TableStyle en diseño, así que
implementé una función simple para esto.


Public Sub FormatGenerico(ByVal Grilla As DataGrid, ByVal
fuente As DataTable) As Boolean
Dim i As Integer = 0
Grilla.TableStyles.Clear()
Dim EstiloGrilla As New DataGridTableStyle
EstiloGrilla.MappingName fuente.TableName 'Estilo de la Grilla, para la tabla
maestra de terceros de facturación
Dim column As New DataGridTextBoxColumn
While i < fuente.Columns.Count
If fuente.Columns(i).Caption <> "." Then
column = New DataGridTextBoxColumn
column.MappingName = fuente.Columns
(i).ColumnName
column.HeaderText = fuente.Columns
(i).Caption
column.Width = fuente.Columns
(i).Caption.Length * 15
EstiloGrilla.GridColumnStyles.Add(column)
End If
i += 1
End While
Grilla.TableStyles.Add(EstiloGrilla)
End Function

gracias, por tu solucion rapida y simple
sino fuera por personas como ustedes mi aplicacion hiría en la cuarta parte
de lo que vá



"Carlos Durán Urenda" escribió en el mensaje
news:%

Programadamente con un cilco que lea los campos de la tabla y añada las
columnas al TableStyles


For i = 0 To Tabla.Columns.Count - 1
Dim TextCol As New DataGridTextBoxColumn
TextCol.MappingName = dt.Columns(i).ColumnName
TextCol.HeaderText = dt.Columns(i).ColumnName
TableStyle.GridColumnStyles.Add(TextCol)
Next

Saludos
Carlos Durán


"kirck" escribió en el mensaje
news:%

Tengo 2 preguntas:
1.- como se usa el Databindings
2.- como puedo hacer que el TableStyles de mi DataGrid tenga la misma
presentacion que la tabla que asigne en el DataMember, mediante un
proceso mas rapido que ir tomando uno a uno cada campo.
Gracias por la ayuda


Kirck

y como puedo correr esta rutina sin que tenga que correr el programa?
puesto que después debo hacer otras modificaciones al formato


"Francisco Rodríguez" escribió en el
mensaje news:7b2f01c52675$9c24e560$
Hola.
Te cuento que hasta ahora no he encontrado nada para
definir en windows un TableStyle en diseño, así que
implementé una función simple para esto.


Public Sub FormatGenerico(ByVal Grilla As DataGrid, ByVal
fuente As DataTable) As Boolean
Dim i As Integer = 0
Grilla.TableStyles.Clear()
Dim EstiloGrilla As New DataGridTableStyle
EstiloGrilla.MappingName fuente.TableName 'Estilo de la Grilla, para la tabla
maestra de terceros de facturación
Dim column As New DataGridTextBoxColumn
While i < fuente.Columns.Count
If fuente.Columns(i).Caption <> "." Then
column = New DataGridTextBoxColumn
column.MappingName = fuente.Columns
(i).ColumnName
column.HeaderText = fuente.Columns
(i).Caption
column.Width = fuente.Columns
(i).Caption.Length * 15
EstiloGrilla.GridColumnStyles.Add(column)
End If
i += 1
End While
Grilla.TableStyles.Add(EstiloGrilla)
End Function