DataGrid Cambir nombre Titulo de las Columnas

Hola:
Prueba esto:

Private Sub frmPrestamo_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim lsQuery As String
'crear la conexion
moConexion = New SqlConnection
moConexion.ConnectionString = msCadenaConexion
lsQuery = "Select ID_LISTADO, COD_LISTADO, DESCRIPCION from LIS_LISTADO"
'crear el DataAdapter
moDataAdapter = New SqlDataAdapter(lsQuery, moConexion)
'crear el data set
moDataSet = New DataSet
moDataAdapter.Fill(moDataSet, "LIS_LISTADO")
'enlazar el dataset con el datagrid
'en DataSource se asigna el dataset
Me.grdDatos.DataSource = moDataSet
'en DataMember el nombre de la tabla del dataset que se mostrara en el
grid
Me.grdDatos.DataMember = "LIS_LISTADO"
' crear un objeto para estilos del datagrid
Dim oEstiloGrid As New DataGridTableStyle
oEstiloGrid.MappingName = "LIS_LISTADO"
oEstiloGrid.BackColor = Color.LightGoldenrodYellow
oEstiloGrid.AlternatingBackColor = Color.Aquamarine
' crear objetos de columna-grid para cada columna de la tabla a mostrar
en el datagrid
Dim oColGrid As DataGridTextBoxColumn
' configurar cada objeto de columna-grid
oColGrid = New DataGridTextBoxColumn
oColGrid.TextBox.Enabled = False
oColGrid.Alignment = HorizontalAlignment.Center
oColGrid.HeaderText = "Id. Listado"
' nombre de la columna del dataset que se mapea hacia esta columna del
grid
oColGrid.MappingName = "ID_LISTADO"
oColGrid.Width = 100
' añadir la columna al objeto que contiene los estilos del datagrid,
'en concreto, a la colección de estilos de columna
oEstiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

oColGrid = New DataGridTextBoxColumn
oColGrid.TextBox.Enabled = False
oColGrid.Alignment = HorizontalAlignment.Center
oColGrid.HeaderText = "Código Listado"
oColGrid.MappingName = "COD_LISTADO"
oColGrid.Width = 200
oEstiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

oColGrid = New DataGridTextBoxColumn
oColGrid.TextBox.Enabled = False
oColGrid.Alignment = HorizontalAlignment.Center
oColGrid.HeaderText = "Descripción"
oColGrid.MappingName = "DESCRIPCION"
oColGrid.Width = 660
oEstiloGrid.GridColumnStyles.Add(oColGrid)
oColGrid = Nothing

' una vez creadas todas las columnas de estilos para el grid,
'añadir el objeto que contiene el estilo personalizado a la
'colección de estilos de tablas del datagrid
Me.grdDatos.TableStyles.Add(oEstiloGrid)

End Sub

Espero que te sirva
Un saludo desde Bilbo:
Carlos

"diegodimatteo" escribió en el
mensaje news:

desde ya como siempre muchas gracias

Lo que yo hago es levantar una consulta desde sql y luegose la asigno al
Datagrid
que pasa, es que me levanta con los titulos del nombre de la Base de
datos.
pero lo que necesito es cambiar ese Titulo por uno que yo Quiero

Lo que habia leido es que se puede cambiar desde el motor. Esa es la unica
manera o hay otra?

Hola,
Puedes hacerlo agregando column styles personalizados a tu grid, aqui puedes
definir el nombre de la cabecera de la columna, ancho,alineación, formato,
etc.
Chequea el codigo que te envio, espero te sirva.

Saludos,

Private Sub EnlazarGrid()
Dim tableStyle As New DataGridTableStyle
tableStyle.MappingName = "dt"
0: 'Columna de UbicacionID
Dim UbiIDCol As New DataGridTextBoxColumn
UbiIDCol.MappingName = "UbiId"
UbiIDCol.HeaderText = "Id"
UbiIDCol.Width = 0
tableStyle.GridColumnStyles.Add(UbiIDCol)
1: 'Columna de zonas
Dim TextCol As New DataGridTextBoxColumn
TextCol.MappingName = "UbiDesc"
TextCol.HeaderText = "Zona"
TextCol.Width = 180
tableStyle.GridColumnStyles.Add(TextCol)
2: 'Columna de PreVendedorActual
Dim VenCol As New DataGridTextBoxColumn
VenCol.MappingName = "Vendedor"
VenCol.HeaderText = "Pre-Vendedor Actual"
VenCol.Width = 150
tableStyle.GridColumnStyles.Add(VenCol)
3: ''Columna de Días de Visita
Dim FrecCol As New DataGridTextBoxColumn
FrecCol.MappingName = "FrecVisitas"
FrecCol.HeaderText = "Días de Visita"
FrecCol.Width = 120
tableStyle.GridColumnStyles.Add(FrecCol)
4: 'Columna Vendedores(combobox)
Dim ComboTextCol As New DataGridComboBoxColumn
ComboTextCol.MappingName = "IdVen"
ComboTextCol.HeaderText = "Reasignar Zona A:"
ComboTextCol.Width = 150
ComboTextCol.ColumnComboBox.DataSource = dwVendedor
ComboTextCol.ColumnComboBox.DisplayMember = "Nombre"
ComboTextCol.ColumnComboBox.ValueMember = "Id"
tableStyle.PreferredRowHeight = ComboTextCol.ColumnComboBox.Height + 2
tableStyle.GridColumnStyles.Add(ComboTextCol)
'Agregamos el estilo al grid !!
Me.DGZona.TableStyles.Clear()
Me.DGZona.TableStyles.Add(tableStyle)
Me.DGZona.DataSource = dt
End Sub


"diegodimatteo" escribió:

desde ya como siempre muchas gracias

Lo que yo hago es levantar una consulta desde sql y luegose la asigno al
Datagrid
que pasa, es que me levanta con los titulos del nombre de la Base de datos.
pero lo que necesito es cambiar ese Titulo por uno que yo Quiero

Lo que habia leido es que se puede cambiar desde el motor. Esa es la unica
manera o hay otra?