Codejock Developer Community : ReportControl: Stop last being removed?

ReportControl: Stop last being removed? : Thanks SuperMario. I've...

Tue, 28 Jun 2005 11:09:02 +0000

Author: ianp
Subject: 2446
Posted: 28 June 2005 at 11:09am

Thanks SuperMario.

I've already implemented the following code based on similar lines:

Private Sub xrcParent_ColumnOrderChanged()
Dim xrcCol As XtremeReportControl.ReportColumn
Dim iCountVisible As Long
On Error Resume Next

' Loop through column collection
For Each xrcCol In xrcParent.Columns
    ' Count visible cols
    If xrcCol.Visible Then iCountVisible = iCountVisible + 1
    ' Exit Loop if more than one visible column
    If iCountVisible > 1 Then Exit For
Next
' Set AllowColumnRemove based on visible columns
xrcParent.AllowColumnRemove = (iCountVisible > 1)

Exit_xrcParent_ColumnOrderChanged:
Set xrcCol = Nothing
On Error GoTo 0
Exit Sub
End Sub

ReportControl: Stop last being removed? : All I can suggest is to keep a...

Tue, 28 Jun 2005 10:37:37 +0000

Author: SuperMario
Subject: 2446
Posted: 28 June 2005 at 10:37am

All I can suggest is to keep a global varable to keep track of how manyrows are visible to start, then increment\decrement as columns areadded\removed, then do something like this:

Private Sub wndReportControl_MouseDown(Button As Integer, Shift As Integer, X As Long, Y As Long)
    Dim hitColumn As ReportColumn

    Set hitColumn = wndReportControl.HitTest(X, Y).Column
    If Not hitColumn Is Nothing Then
        If ColumnCount <= 1 Then
         &nbs p; hitColumn.AllowRemove = False
        End If
    End If

End Sub

ReportControl: Stop last being removed? : Inmy report control, all columns...

Fri, 24 Jun 2005 03:58:06 +0000

Author: ianp
Subject: 2446
Posted: 24 June 2005 at 3:58am

In my report control, all columns have AllowRemove = true.

I'd like to prevent my users from removing the last column, regardless of the order in which they remove the columns.

Is this currently possible?