Datagrid splits

debbiecoates · September 9th, 2008, 05:10 AM

I wondered if anyone could spot anything wrong with this code. i have a datagrid which ib bound to an ADODC control.

I have to datagrid split into two panes with only the totals showing in the right hand lane.

The code works great on another page, but on this page is keeps failing when it gets to the bit that says ' Hide all but the Total column.

I get a memory error, and then the whol application just shuts down. I cant see what is wrong with it since I have used similar code elsewhere.

With DataGrid_ItemisedGrantDetails

    If .Splits.Count = 1 Then ' Append a split.
        .Splits.Add 1
    End If
    .TabAcrossSplits = True

    For i = 0 To 5
        .Splits(0).Columns(i).Width = 1
    Next

    .Splits(0).Columns(6).Width = 3000 'Display
    .Splits(0).Columns(6).Locked = True
    .Splits(0).Columns(7).Width = 300 'CapRev
    .Splits(0).Columns(7).Caption = "" 'CapRev
    .Splits(0).Columns(7).Locked = True

    For i = 8 + fcheckperiods To .Splits(0).Columns.Count - 1
        .Splits(0).Columns(i).Width = 1
    Next

        ' Hide all but the Total column.
        For i = 0 To .Splits(0).Columns.Count - 1
           If .Splits(1).Columns(i).DataField = "Total" Then
              .Splits(1).Columns(i).Visible = True
              Else
              .Splits(1).Columns(i).Visible = False
           End If
        Next i

    .Splits(1).RecordSelectors = False
    .Splits(0).Size = 6000
    .Splits(1).Size = 800
    .Refresh

End With

BrianWren · September 9th, 2008, 12:00 PM

Which actual line raises the error?

(I hate errors like this...)

Since this kind of error involve machinery not described in the documentation, changes that would appear to be unrelated sometime can make a difference.
Try eliminating the With block, and being explicit instead.
Try

Code:

        ' Hide all but the Total column.
        For i = 0 To .Splits(0).Columns.Count - 1
           If .Splits(1).Columns(i).DataField = "Total" _
               Then .Splits(1).Columns(i).Visible = True
           If .Splits(1).Columns(i).DataField <> "Total" _
               Then .Splits(1).Columns(i).Visible = False
        Next i

or

Code:

        ' Hide all but the Total column.

Code:

        For i = 0 To .Splits(0).Columns.Count - 1
           Dim bVis As Boolean
           bVis = .Splits(1).Columns(i).DataField = "Total"
           .Splits(1).Columns(i).Visible = bVis
        Next i

or

Code:

        ' Hide all but the Total column.
        For i = 0 To .Splits(0).Columns.Count - 1
           With .Splits(1).Columns(i)
               .Visible = (.DataField = "Total")
           End With
        Next i

I mean, all of these âorâs are just ways to try to get the compiled code to behave in some different way, that might skip over the resultant instruction that raises the error condition...