[SOLVED] Export not possible if using EditOptions!

Private Sub cmdTest_Click()
    Dim Row As ReportRow, c As Long
    lstCaptions.Clear
       
    Dim constraintIndexFirst As Long
    Dim constraintIndexSecond As Long
    Dim i As Long
   
    With ReportControl1
        For Each Row In .Rows
           
            For i = 0 To .Columns(0).EditOptions.Constraints.Count - 1
                If .Columns(0).EditOptions.Constraints(i).Data = Row.Record(0).Value Then
                    constraintIndexFirst = i
                    Exit For
                End If
            Next i
           
            For i = 0 To .Columns(1).EditOptions.Constraints.Count - 1
                If .Columns(1).EditOptions.Constraints(i).Data = Row.Record(1).Value Then
                    constraintIndexSecond = i
                    Exit For
                End If
            Next i
           
            lstCaptions.AddItem .Columns(0).EditOptions.Constraints(constraintIndexFirst).Caption & " / " & .Columns(1).EditOptions.Constraints(constraintIndexSecond).Caption
           
        Next
    End With
       
End Sub

 

 

If you are able to change the data of constraints into 0 & 1 for both columns

 

Private Sub cmdTest_Click()
    Dim Row As ReportRow, c As Long
    lstCaptions.Clear
        
    With ReportControl1
        For Each Row In .Rows
           
            lstCaptions.AddItem .Columns(0).EditOptions.Constraints(Row.Record(0).Value).Caption & " / " & .Columns(1).EditOptions.Constraints(Row.Record(1).Value).Caption
           
        Next
    End With
       
End Sub

 

 

 

But on the otherhand you could add ReportItems with the selected constraint as caption:

 

For i = 0 To 20
    Set rec = ReportControl1.Records.Add()
    Select Case i
       Case Is < 4
            With rec.AddItem(0) 
                .Caption = Me.ReportControl1.Columns(0).EditOptions.Constraints(.Value).Caption
            End With

 

....

....

 

In this case you could use your original code cmdTest_Click() because you already added captions to the ReportItem

 

 

Well to be honest I prefer adding the captions to the ReportItems in advance option, so you don't have to worry about the rest.

 

 

Good luck