i'm on vb6. msflexgrid have error

[sal21]

from a:

.rows = UBound(STRDBROWS, 2) + 2 (are 31.757 records)

an in msflexgrid have 11 column to fill.

my complete code:

Code: Select all

Private Sub APRI_FLEXGRID1()

    If Not (RS Is Nothing) Then
        If (RS.State And adStateOpen) = adStateOpen Then RS.Close
        Set RS = Nothing
    End If

    ClearFlex Me.MSFlexGrid1

    Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.Open SQL, CON, adOpenForwardOnly, adLockReadOnly
    'Debug.Print SQL
    'RS.Sort = ("REGIONE, STATO")

    CNT = RS.RecordCount
    C = 0

    Erase STRDBROWS()
    STRDBROWS = RS.GetRows(RS.RecordCount)
    RS.Close
    Set RS = Nothing

    Dim K As Long, LP As Integer, LA As Integer

    R = 1
    MM = 0
    FF = 0
    TOTT = 0

    With Me.MSFlexGrid1

        If CNT <= 32 Then
            .rows = 33
        Else
          [b]  .rows = UBound(STRDBROWS, 2) + 2 <<<<<<< here error in image[/b]
        End If

        '.Visible = False
        .Sort = False
        .Redraw = False

        For K = 0 To UBound(STRDBROWS, 2)

            .TextMatrix(R, C) = STRDBROWS(0, K)
            .TextMatrix(R, C + 1) = STRDBROWS(1, K)
            .TextMatrix(R, C + 2) = STRDBROWS(2, K)
            .TextMatrix(R, C + 3) = STRDBROWS(3, K)
            .TextMatrix(R, C + 4) = STRDBROWS(4, K)
            .TextMatrix(R, C + 5) = Format(STRDBROWS(5, K), "#,##0")
            .TextMatrix(R, C + 6) = Format(STRDBROWS(6, K), "#,##0")
            .TextMatrix(R, C + 7) = Format(STRDBROWS(7, K), "#,##0")
            .TextMatrix(R, C + 8) = STRDBROWS(8, K)
            .TextMatrix(R, C + 9) = Format(STRDBROWS(5, K), "#00000000")
            .TextMatrix(R, C + 10) = Format(STRDBROWS(6, K), "#00000000")
            .TextMatrix(R, C + 11) = Format(STRDBROWS(7, K), "#00000000")
            .TextMatrix(R, C + 12) = Format(STRDBROWS(1, K), "#00000000")

            MM = MM + STRDBROWS(5, K)
            FF = FF + STRDBROWS(6, K)
            TOTT = TOTT + STRDBROWS(7, K)

            R = R + 1

        Next K

        Me.LTOTALE.Caption = Format(TOTT, "#,##0")
        Me.LNMASCHI.Caption = Format(MM, "#,##0")
        Me.LNFEMMINE.Caption = Format(FF, "#,##0")
        Me.LNRC.Caption = Format(K, "#,##0")

        .TopRow = 1
        .Redraw = True

    End With

End Sub

[HansV]

What is the value of UBound(STRDBROWS, 2)?
The maximum number of cells (rows * columns) in a MSFlexGrid control is about 350000

[sal21]

What is the value of UBound(STRDBROWS, 2)?

number of records retuned from sql

The maximum number of cells (rows * columns) in a MSFlexGrid control is about 350000

[HansV]

I know what it means. But how large is the number of records?

[sal21]

I know what it means. But how large is the number of records?

46401

in other case, i found from google:

https://stackoverflow.com/questions/125 ... 006-in-vb6

[HansV]

That link mentions the same limit that I found: 350000 cells.
With 46401 rows and 13 columns, you're trying to populate more than 600000 cells. That is far above the limit.

[sal21]

That link mentions the same limit that I found: 350000 cells.
With 46401 rows and 13 columns, you're trying to populate more than 600000 cells. That is far above the limit.

Resolved whit a group by!
Tks in other case, Bro.

[HansV]

Glad you found a workaround.