Report with comboboxes in cell

This should get you started.

Set Column = .Columns.Add(COL_EMPLOYEETYPE, "Employee Type", 80, True)
Column.EditOptions.AddComboButton
Column.EditOptions.ConstraintEdit = True
Column.EditOptions.Constraints.Add "Contract", 1
Column.EditOptions.Constraints.Add "Hourly", 2
Column.EditOptions.Constraints.Add "Salary", 3

When I say the code d"does not work", I mean it does NOT display a drop down list in the cell when I click on the cell.

Also, the code as it stands, its pretty useless - I had to add a row (none of the sample code in the help file work), and after fiddling with it for hours, realized I had to call the Populate() method on the control (a single line which would have saved hours of rummaging through the pretty useless documentation)

AND I still can't the damn code to work. DOES anyone else know how to do this?

Neil,

This code does work.  Why don't you paste your code here and I'll take a look at it.  I use combo boxes in reports all the time.

Do it quickly.  I'm leaving in a couple of hours for the day but I can take a look at it if you get it here soon.

Yes, I am using v 11.2

I will put my other work on hold now and do the demo

send it to jcollier@optitekinc.com

I sent the demo to the email address you kindly provided - I hope you can help point out what I may be doing incorrectly

Thank you

Just got it now - I was away for a few hours. I'll give you feedback ASAP.

Thanks

Try this:

Private Sub wndReport_PreviewKeyDown(KeyCode As Integer, ByVal Shift As Integer, Cancel As Boolean)

    If (KeyCode < 48 Or KeyCode > 57) And KeyCode <> 8 Then
        Cancel = True
    End If
    
End Sub

I also noticed an error in the form_load event.  Notice the changes with the constants:

'Create the second column
        Set Column = .Columns.Add(COLUMN_EMPLOYEE_NAME, "Name", DFLT_COL_WIDTH, True)
        Column.Editable = False
       
        'Create the third column
        Set Column = .Columns.Add(COLUMN_EMPLOYEE_AGE, "Age", DFLT_COL_WIDTH, True)
        Column.Editable = True

Ok.  This is kinda hacked so if someone knows a better way, please let me know.
Add Dim blnNumericOnly As Boolean to General Declaration of the form

Private Sub wndReport_MouseDown(Button As Integer, Shift As Integer, x As Long, y As Long)

    Dim hitItem As ReportRecordItem
   
    Set hitItem = wndReport.HitTest(x, y).Item
   
    If Not hitItem Is Nothing Then
        If hitItem.Index = COLUMN_EMPLOYEE_AGE Then
            blnNumericOnly = True
        Else
            blnNumericOnly = False
        End If
    End If
   
End Sub

Private Sub wndReport_PreviewKeyDown(KeyCode As Integer, ByVal Shift As Integer, Cancel As Boolean)

    If blnNumericOnly = False Then Exit Sub
   
    If (KeyCode < 48 Or KeyCode > 57) And KeyCode <> 8 Then
        Cancel = True
    End If
       
End Sub