Estoy trabajando en un viejo sistema, actualmente tienen un reporte en fpSpread (siendo sincero nunca lo había visto) ahora que mas o menos lo he trabajo lo entiendo (no del todo porque sigo preguntando), estoy mostrando una consulta pero no se despliega
completamente, con este codigo es el que lo muestro.
Private Sub HacerBusqueda()
Dim rstCuentasPorPagar As New ADODB.Recordset
Dim l As Long
Dim m_SQL As String
Dim a As Long
If CmbProveedores.ListIndex = 0 Then
m_SQL = "SELECT IdFactura,FechaFactura,CodigoProveedor,NombreProveedor,Total,FechaDPP,FechaFinal,Pagado FROM FacturasPendientes WHERE Pagado ='0'"
Else
m_SQL = "SELECT IdFactura,FechaFactura,CodigoProveedor,NombreProveedor,Total,FechaDPP,FechaFinal,Pagado FROM FacturasPendientes WHERE CodigoProveedor='" & ArrCodigosProveedor(CmbProveedores.ListIndex) & "' AND Pagado ='0' ORDER BY FechaFactura"
End If
AbrirRecordset rstCuentasPorPagar, True, m_SQL
sprFacturas.MaxRows = 1
With rstCuentasPorPagar
Do While Not .EOF sprFacturas.EventEnabled(EventButtonClicked) = False l = l + 1
sprFacturas.MaxRows = 1
sprFacturas.Row = l: sprFacturas.Col = Col_NumFactura: sprFacturas.Text = .Fields("IdFactura").Value sprFacturas.Col = Col_Pagado
sprFacturas.Row = 1
If .Fields("Pagado").Value = False Then sprFacturas.Value = 0 Else sprFacturas.Value = 1 End If
If .Fields("Pagado").Value Then
For a = 1 To sprFacturas.MaxCols sprFacturas.Col = a
sprFacturas.Lock = True
Next a
Else
HabilitaColumnas sprFacturas.Row
End If
sprFacturas.Col = Col_Pagado
sprFacturas.Lock = False
.MoveNext
Loop
sprFacturas.EventEnabled(EventButtonClicked) = True
End With
End Sub