ayuda con estilos!!!!!!!!!!!!!!!!!1
Publicado por lekue (1 intervención) el 16/06/2006 10:00:12
Hola!
tengo un problema con un datagrid al darle estilo, y es que no me hace ningun caso. Os dejo el codigo aqui abajo y a ver si alguien me puede ayudar por favor!
Creo que mi problema es que al hacer una select de 2 tablas luego no se darle los MappingName.
Gracias!!!!!!!!!!!!!!!!!!!!!!!!
Dim adaLineas As New SqlClient.SqlDataAdapter
Dim tabLineas As New DataTable
Dim sSql As String
sSql = "SELECT Cargue.CodigoBarras , DatosOrigen.Descripcion , DatosOrigen.Peso FROM Cargue LEFT JOIN DatosOrigen ON Cargue.CodigoBarras = DatosOrigen.CodigoBarras WHERE Cargue.CodigoHorno = 1 AND Cargue.CodigoCargue = 2"
'se cargan los datos de las lineas
adaLineas = New SqlClient.SqlDataAdapter(sSql, Conexion)
adaLineas.Fill(tabLineas)
'si no hay lineas, se sale
If tabLineas.Rows.Count = 0 Then Exit Sub
With GridLineas
.PreferredColumnWidth = 60
.SetDataBinding(tabLineas, "")
.CaptionText = "CARGUE Y DATOS DE ORIGEN"
End With
'para los estilos de las columnas
Dim Estilo As New DataGridTableStyle
Dim TipoColumna As New DataGridTextBoxColumn
Estilo.MappingName = "tabLineas"
TipoColumna.MappingName = "Cargue.Codigo"
TipoColumna.Width = 3000
' Agrega la Columna al Estilo
GridLineas.TableStyles.Clear()
Estilo.GridColumnStyles.Add(TipoColumna)
tengo un problema con un datagrid al darle estilo, y es que no me hace ningun caso. Os dejo el codigo aqui abajo y a ver si alguien me puede ayudar por favor!
Creo que mi problema es que al hacer una select de 2 tablas luego no se darle los MappingName.
Gracias!!!!!!!!!!!!!!!!!!!!!!!!
Dim adaLineas As New SqlClient.SqlDataAdapter
Dim tabLineas As New DataTable
Dim sSql As String
sSql = "SELECT Cargue.CodigoBarras , DatosOrigen.Descripcion , DatosOrigen.Peso FROM Cargue LEFT JOIN DatosOrigen ON Cargue.CodigoBarras = DatosOrigen.CodigoBarras WHERE Cargue.CodigoHorno = 1 AND Cargue.CodigoCargue = 2"
'se cargan los datos de las lineas
adaLineas = New SqlClient.SqlDataAdapter(sSql, Conexion)
adaLineas.Fill(tabLineas)
'si no hay lineas, se sale
If tabLineas.Rows.Count = 0 Then Exit Sub
With GridLineas
.PreferredColumnWidth = 60
.SetDataBinding(tabLineas, "")
.CaptionText = "CARGUE Y DATOS DE ORIGEN"
End With
'para los estilos de las columnas
Dim Estilo As New DataGridTableStyle
Dim TipoColumna As New DataGridTextBoxColumn
Estilo.MappingName = "tabLineas"
TipoColumna.MappingName = "Cargue.Codigo"
TipoColumna.Width = 3000
' Agrega la Columna al Estilo
GridLineas.TableStyles.Clear()
Estilo.GridColumnStyles.Add(TipoColumna)
Valora esta pregunta


0