Private Sub populateRow(iRow As Integer)
Dim i As Integer

    With SCGrid1
        Inserta el texto en cada una de las celdas de la fila actual
        .Text(iRow, 0) = rcds![Numero]
        .Key(iRow, 0) = rcds![Numero]
        .Text(iRow, 1) = rcds![FechaFactura]
        .Key(iRow, 1) = rcds![FechaFactura]
        .Text(iRow, 2) = rcds![FechaMovto]
        .Key(iRow, 2) = rcds![FechaMovto]
        .Text(iRow, 3) = rcds![Servicio]
        .Key(iRow, 3) = rcds![Servicio]
        .Text(iRow, 4) = rcds![CodServicioAdmin]
        .Key(iRow, 4) = rcds![CodServicioAdmin]
        .Text(iRow, 5) = rcds![Tarifa]
        .Key(iRow, 5) = rcds![Tarifa]
        .Text(iRow, 6) = rcds![Cantidad]
        .Key(iRow, 6) = rcds![Cantidad]
        .Text(iRow, 7) = rcds![Importe]
        .Key(iRow, 7) = rcds![Importe]
        .Text(iRow, 8) = rcds![PorcentajeComision]
        .Key(iRow, 8) = rcds![PorcentajeComision]
        .Text(iRow, 9) = rcds![TipoCambio]
        .Key(iRow, 9) = rcds![TipoCambio]
        
        .TextAlignment(iRow, 0) = scTxtRight
        .TextAlignment(iRow, 5) = scTxtRight
        .TextAlignment(iRow, 6) = scTxtRight
        .TextAlignment(iRow, 7) = scTxtRight
        .TextAlignment(iRow, 8) = scTxtRight
        .TextAlignment(iRow, 9) = scTxtRight
        
        .CellPictureAlignment(iRow, -1) = scPicCenter + scPicVCenter
Deshabilita todas las celdas de la fila actual
        .CellMode(iRow, 0) = scCellFixed
        .CellMode(iRow, 1) = scCellFixed
        .CellMode(iRow, 2) = scCellFixed
        .CellMode(iRow, 3) = scCellFixed
        .CellMode(iRow, 4) = scCellFixed
        .CellMode(iRow, 5) = scCellFixed
        .CellMode(iRow, 6) = scCellFixed
        .CellMode(iRow, 7) = scCellFixed
        .CellMode(iRow, 8) = scCellFixed
        .CellMode(iRow, 9) = scCellFixed
        
    End With ' SCGrid1

End Sub
