Visual Basic Foro

Programación => Bases de Datos => Mensaje iniciado por: zxs23 en Noviembre 13, 2009, 10:38:11 pm

Título: Como Alinear columnas - Recuperar fila con el control sGrid2.0
Publicado por: zxs23 en Noviembre 13, 2009, 10:38:11 pm
Como recupero los datos de una fila de un control sGrid, con el Datagrid se hacia asi:
Text1 = DataGrid1.Columns(0).Text
Text2 = DataGrid1.Columns(1).Text

y como alineo los registros de la tercera columna "precio" a la derecha, estoy cargando un recordset nose si se podra alinear la columna desde un boton o debo hacerlo al momento de cargar el recorseT?, de todos modos dejo el code de carga del rs.

Código: [Seleccionar]
Private Sub Command1_Click()
rs.Open "SELECT codigo,nompre,precio FROM producto", cn, adOpenStatic ' -- Crear nuevo recordset
   
        Dim iCol   As Integer
        With vbalGrid1
       
        .Clear True
            .Redraw = False ' -- Deshabilitar Redraw para agilizar la carga
            DoEvents
           
            ' -- Agregar columnas al Grid - Caption, la clave
             For iCol = 0 To rs.Fields.Count - 1
                Call .AddColumn(rs(iCol).Name, rs(iCol).Name)
                'MsgBox rs(iCol).Name
            Next
           
            ' -- Recorrer el rs
            While Not rs.EOF
                ' -- Nueva fila
                .AddRow
                ' -- recorrer las demás celdas
                For iCol = 1 To .Columns
                    ' -- Comprobar que el dato no sea un Null
                    If Not IsNull(rs(iCol - 1)) Then
                        ' -- Agregar el dato
                        Call .CellDetails(.Rows, .ColumnIndex(rs(iCol - 1).Name), rs(iCol - 1))
                    End If
                Next
               
                rs.MoveNext ' -- Siguiente registro
            Wend
            .Redraw = True ' -- Importante !! Habilitar nuevamente el Redraw
             DoEvents
        End With
        rs.Close
        Set rs = Nothing
End Sub



Título: Re:Como Alinear columnas - Recuperar fila con el control sGrid2.0
Publicado por: seba123neo en Noviembre 14, 2009, 12:54:44 am
Hola, nunca he usado tal grilla,pregunta ¿es necesario usar ese control? creo que con las grillas comunes alcanza y sobra.pero debe tener propiedades fijate algo como ColAligment o algo asi debe tener, fijate una por una y la vas a encontrar.

saludos.
Título: Re:Como Alinear columnas - Recuperar fila con el control sGrid2.0
Publicado por: cobein en Noviembre 14, 2009, 02:49:24 am
Para recuperar simplemente usas  vbalGrid1.CellText()

vbalGrid1.CellTextAlign() = DT_SINGLELINE Or DT_VCENTER Or DT_RIGHT

Una linea, centrado verticalmente, alineado a la derecha
Título: Re:Como Alinear columnas - Recuperar fila con el control sGrid2.0
Publicado por: zxs23 en Noviembre 15, 2009, 01:06:28 am
Si esas eran las propiedades, con el sGrid puedo agrupar registros, no se si se podra con los grid normales, por otro lado se necesitan 3 ocx para correr el sGrid2.0 lo cual es molesto.
Título: Re:Como Alinear columnas - Recuperar fila con el control sGrid2.0
Publicado por: cobein en Noviembre 16, 2009, 08:39:08 pm
Podes agregar todo el sorce a tu proyecto, es mas simple que tener ocx por todos lados. Yo lo uso asi y te digo que uso muuuuucho el sgrid y no hay drama. Hay algunas modificaciones que le hice pero nada grande.