Combo Boxes

[dr223]

Hi,

The following code gives an error - at run time

InvalidCastException was unhandled
Operator '=' is not defined for type 'DatarowView' and 'Nothing'

If Not Me.CmbTruckTyp.SelectedItem = Nothing Then

 Select Case Me.CmbTruckTyp.SelectedItem.ToString
    Case "Mercedes-Benz"
         cmdMercBenzModels.Visible = True
         cmbDafModels.Visible = False
    Case "Daf"
         cmdMercBenzModels.Visible = False
         cmbDafModels.Visible = True
    Case Else
         cmdMercBenzModels.Visible = False
         cmbDafModels.Visible = False

  End Select

End If

any help please

[Mur16]

Try:

If Not Me.CmbTruckTyp.SelectedItem is Nothing Then

[dr223]

It didnt work!!

I even tried

If CmbTruckTyp.SelectedIndex > -1 Then

It never gives any error, however, both comboxes are visible regardless of "Daf" or "MEercedes-Benz" being selected..
Any help pelase

[Mur16]

Like the other post, the ComboBox properties can be tricky. I would put a break on the If statement, hold the curser over CmbTruckTyp and find the property you want to test by looking at the values that actually exist.

[curt_c]

Hi,

This worked for me. What event are you using?

Private Sub CmbTruckTyp_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbTruckTyp.SelectedIndexChanged


        Try

            If Not Me.CmbTruckTyp.SelectedItem = Nothing Then

                Select Case Me.CmbTruckTyp.SelectedItem.ToString
                    Case "Mercedes-Benz"
                        cmdMercBenzModels.Visible = True
                        cmbDafModels.Visible = False
                    Case "Daf"
                        cmdMercBenzModels.Visible = False
                        cmbDafModels.Visible = True
                    Case Else
                        cmdMercBenzModels.Visible = False
                        cmbDafModels.Visible = False

                End Select

            End If
        Catch ex As Exception

        End Try
    End Sub

Curt