Can this code be reduced?

[debbie_82]

Private Sub SetSingle(bEnabled As Boolean)
Dim iCtr As Integer
grdSingle.Enabled = bEnabled
If bEnabled = False Then
For iCtr = 0 To btnSingle.Count - 1
btnSingle(iCtr).Enabled = False
Next iCtr
Else
If iMode = enumEDIT_FILTER Or iMode = enumVIEW_FILTER Then
If FilterList.Filters(FilterList.Selected).GetSCCount = 0 Then
btnSingle(2).Enabled = True
btnSingle(1).Enabled = False
btnSingle(0).Enabled = False
ElseIf FilterList.Filters(FilterList.Selected).GetSCCount = 1 Then
btnSingle(0).Enabled = False
btnSingle(1).Enabled = True
btnSingle(2).Enabled = True
Else
btnSingle(2).Enabled = True
btnSingle(1).Enabled = True
btnSingle(0).Enabled = True
End If
Else
If grdSingle.Rows = 1 Then
btnSingle(2).Enabled = True
btnSingle(1).Enabled = False
btnSingle(0).Enabled = False
ElseIf grdSingle.Rows = 2 Then
btnSingle(0).Enabled = False
btnSingle(1).Enabled = True
btnSingle(2).Enabled = True
Else
btnSingle(2).Enabled = True
btnSingle(1).Enabled = True
btnSingle(0).Enabled = True
End If
End If
End If
End Sub

[CornedBee]

You could build lookup tables for matching the value against the minimum enabled control index, then use a single loop to enable them all.

[si_the_geek]

based on part of what CornedBee said, you could do this:

Private Sub SetSingle(bEnabled As Boolean)

Dim iCtr As Integer
Dim iMinBtn As Integer
grdSingle.Enabled = bEnabled
If bEnabled = False Then
iMinBtn = btnSingle.Count
Else
If iMode = enumEDIT_FILTER Or iMode = enumVIEW_FILTER Then
If FilterList.Filters(FilterList.Selected).GetSCCount = 0 Then
iMinBtn = 2
ElseIf FilterList.Filters(FilterList.Selected).GetSCCount = 1 Then
iMinBtn = 1
Else
iMinBtn = 0
End If
Else
If grdSingle.Rows = 1 Then
iMinBtn = 2
ElseIf grdSingle.Rows = 2 Then
iMinBtn = 1
Else
iMinBtn = 0
End If
End If
End If

For iCtr = 0 To iMinBtn - 1
btnSingle(iCtr).Enabled = False
Next iCtr
For iCtr = iMinBtn To btnSingle.Count - 1
btnSingle(iCtr).Enabled = True
Next iCtr

End Sub

[debbie_82]

Wow, just shows why I like programming.

I better practice more...

Thank you for some cool insights.