Combo Boxes

Hi,

The following code gives an error - at run time

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

Code:

---

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

Try:

Code:

---

If Not Me.CmbTruckTyp.SelectedItem is Nothing Then

---

It didnt work!!

I even tried

Code:

---

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

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.

Hi,

This worked for me. What event are you using?

Code:

---


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