Formatear las colugnas de un Grid
Publicado por Antonio (8 intervenciones) el 04/01/2007 19:54:53
Hola:
Necesito que alguien me ayude; tengo mi programa de actualizacion del grid pero yo quiero que la primera colugna tenga un ancho de 300 por decir y la segunda colugna que tenga un formato de digitos de 2 decimales "0.00"
Que abajo abjunto el codigo para que puedan ver mi programa de cactualizacion de mis datosfovor indiquenme alli o coloquemele alli lo que necesito para que me trabaje lo que deseo
Sub Actualizar()
Dim ds As New DataSet
Dim Datos As New DataSet("Usuarios")
Dim Tabla As New DataTable("Usuarios")
'Limpia las Tablas
Datos.Tables.Clear()
'
If CN.State = 0 Then CN.Open()
Query = "Select CategoriaGasto, CodGasto ,Gasto From tblGastos"
Query = Query & " Inner Join tblCategoriaGastos On tblGastos.CodCategoriaGasto = tblCategoriaGastos.CodCategoriaGasto"
Tabla.Rows.Clear()
'Agrega la tabla
Datos.Tables.Add(Tabla)
'Llenar los Datos
Dim Datos1 As New SqlDataAdapter(Query, CN)
''''''''''''''''
Datos1.Fill(Tabla)
Datos1.Dispose()
'Carga el Grid
DataGrid1.DataSource = Datos.Tables(0)
DataGrid1.Refresh()
'cerrar
CN.Close()
End Sub
Gracias
AM
Necesito que alguien me ayude; tengo mi programa de actualizacion del grid pero yo quiero que la primera colugna tenga un ancho de 300 por decir y la segunda colugna que tenga un formato de digitos de 2 decimales "0.00"
Que abajo abjunto el codigo para que puedan ver mi programa de cactualizacion de mis datosfovor indiquenme alli o coloquemele alli lo que necesito para que me trabaje lo que deseo
Sub Actualizar()
Dim ds As New DataSet
Dim Datos As New DataSet("Usuarios")
Dim Tabla As New DataTable("Usuarios")
'Limpia las Tablas
Datos.Tables.Clear()
'
If CN.State = 0 Then CN.Open()
Query = "Select CategoriaGasto, CodGasto ,Gasto From tblGastos"
Query = Query & " Inner Join tblCategoriaGastos On tblGastos.CodCategoriaGasto = tblCategoriaGastos.CodCategoriaGasto"
Tabla.Rows.Clear()
'Agrega la tabla
Datos.Tables.Add(Tabla)
'Llenar los Datos
Dim Datos1 As New SqlDataAdapter(Query, CN)
''''''''''''''''
Datos1.Fill(Tabla)
Datos1.Dispose()
'Carga el Grid
DataGrid1.DataSource = Datos.Tables(0)
DataGrid1.Refresh()
'cerrar
CN.Close()
End Sub
Gracias
AM
Valora esta pregunta


0