Formatear Columna de Datagrid

[alehawk]

Hola, quisiera formatear una columna de datagrid en particular.

Asi lleno al datagrid:

Código:

        cn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & nombrebase & ";Persist Security Info=False")  ' note 5323 is the name of dbase 
        rs2.Open(tablanombre, cn, ADODB.CursorTypeEnum.adOpenDynamic, ADODB.LockTypeEnum.adLockOptimistic)
        ds.Tables.Add(tablanombre)
        ol.Fill(ds.Tables(tablanombre), rs2)
        ds.DataSetName = cn.ConnectionString
        Me.MSGrid.DataSource = ds.Tables(tablanombre)
        MSGrid.CaptionText = nombrebase
        ''MsgBox(MSGrid.DataSource.columns.count)
        ''MsgBox(MSGrid.DataSource.columns.item(1).columnname())
        ''MsgBox(MSGrid.TableStyles(1).ToString)
        Call AutoSizeDataGridColumns(MSGrid, tablanombre, 1)
        cn.Close()

Como hago por ejemplo para cambiar el formato de la columna 2 por ejemplo a MM/dd/yyyy H:mm:ss ?

Gracias!

[Rony J.]

Si no me equivoco lo puedes hacer por la propiedad TableStyles del datagrid, alli ubicarias la columna que deseas y en la propiedad format le pasas la cadena de formato que desees..

http://support.microsoft.com/default...d=kb;ES;317859
http://www.forosdelweb.com/showthrea...light=datagrid

Suerte y saludos.

[alehawk]

Gracias Rony, ahora le pego una mirada!

[alehawk]

Exceletne tu link, despues de probar pude lograrlo de la siguiente manera, primero identifico que tabla es la que quiero darle el formato y luego lo logre con este codigo:

Código:

    Private Sub WriteMappingNames()
        Dim dgt As DataGridTableStyle
        For Each dgt In MSGrid.TableStyles
            Console.WriteLine(dgt.MappingName)
            Dim dgc As DataGridTextBoxColumn
            For Each dgc In dgt.GridColumnStyles
                ''    MsgBox(dgc.MappingName)
                dgc.NullText = "[Vacío]"
                If dgc.MappingName = mfecha Then
                    ''  dgc.HeaderText = "dsfg"
                    dgc.Format = "dd MM yyyy hh:mm:ss"
                    dgc.NullText = Date.Now
                    Exit Sub
                End If
                ''                dgc.DataGridTableSty()
            Next dgc
        Next dgt
    End Sub