31/01/2006, 02:32
|
| | Fecha de Ingreso: julio-2003
Mensajes: 102
Antigüedad: 21 años, 5 meses Puntos: 0 | |
creo, si no me confundo que para darle formato a las comlumnas, titulos, formatos a los campos y demas, tienes que hacerlo en el evento itemdatabound del datagrid.
yo lo hago de la sigueite manera:
Private Sub DgRecibidas_ItemDataBound(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.DataGridItemEventArgs) Handles DgRecibidas.ItemDataBound
On Error Resume Next 'puede que la fecha de necesidad no esté introducida
e.Item.Cells(1).Visible = False
e.Item.Cells(2).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(5).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(11).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(12).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(13).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(14).HorizontalAlign = HorizontalAlign.Center
e.Item.Cells(17).Visible = False
e.Item.Cells(15).Visible = False
e.Item.Cells(16).Visible = False
e.Item.Cells(18).Visible = False
If e.Item.ItemIndex = -1 Then e.Item.Cells(13).Text = "Ret."
If e.Item.ItemIndex = -1 Then Exit Sub
Select Case e.Item.Cells(15).Text 'Estado
Case "1" : e.Item.Cells(8).ForeColor = Color.Blue
Case "3" : e.Item.Cells(8).ForeColor = Color.Red
Case "5" : e.Item.Cells(8).ForeColor = Color.Red
Case "7" : e.Item.Cells(8).ForeColor = Color.Black
Case "11" : e.Item.Cells(8).ForeColor = Color.Red
Case "10" : e.Item.Cells(8).ForeColor = Color.Green
Case Else : e.Item.Cells(8).ForeColor = Color.Orange
End Select
Select Case e.Item.Cells(14).Text
Case "1" : e.Item.Cells(14).Text = "B"
Case "2" : e.Item.Cells(14).Text = "M"
Case "3" : e.Item.Cells(14).Text = "A"
End Select
e.Item.Cells(8).Font.Bold = True
e.Item.Cells(4).Text = CDate(e.Item.Cells(4).Text).ToString("dd/MM/yy") 'Fechas
e.Item.Cells(6).Text = CDate(e.Item.Cells(6).Text).ToString("dd/MM/yy") 'Fechas
e.Item.Cells(9).Text = CDate(e.Item.Cells(9).Text).ToString("dd/MM/yy") 'Fechas
'Retraso
If Len(Trim(Replace(e.Item.Cells(17).Text, " ", ""))) = 0 Then e.Item.Cells(17).Text = CDate(Now()).ToShortDateString
If Len(Trim(Replace(e.Item.Cells(6).Text, " ", ""))) = 0 Then
e.Item.Cells(13).Text = "0"
Else
e.Item.Cells(13).Text = DateDiff(DateInterval.Day, CDate(e.Item.Cells(6).Text), CDate(e.Item.Cells(17).Text))
End If
If CInt(e.Item.Cells(13).Text) < 0 Then e.Item.Cells(13).Text = "0"
End Sub
Yo en este evento dor formato de fechas, alinio campos, etc
Supongo que es aqui donde podras cambiar el encabezado de cada columna.
Si tu datagrid lo haces con columnas fijas, en el diseñador lo puedes cambiar.
UN saludo |