SOLVED: Dynamically add items to Splitbutton

 

 

Here another solution:

 

Private Sub CommandBars_InitCommandsPopup(ByVal CommandBar As XtremeCommandBars.ICommandBar)
   
    Dim col As XtremeReportControl.ReportColumn
    Dim Control As CommandBarControl, ControlItem As CommandBarControl
    Dim ctrlButton As CommandBarButton
   
    If (Not CommandBar.Parent Is Nothing) Then
   
        If CommandBar.Parent.Id = 1002 Then
            CommandBar.Controls.DeleteAll
            If currentReportVisible.Columns.Count > 0 Then
                For Each col In currentReportVisible.Columns
                    Set ctrlButton = CommandBar.Controls.Add(xtpControlCheckBox, col.ItemIndex + 1 + 1002, col.Caption)
                        ctrlButton.CloseSubMenuOnClick = False
                        ctrlButton.Checked = col.Visible
                Next col
            End If
        End If
    End If
End Sub

replace it in original sample.