Hi,

I'm jumping into .NET (Visual Studio 2005) from 6.0 and wow. I need help with writing an IsValidData function for a combo list box. On Click, it will verify and/or demand the user select an item in the combo box. They took away my IsNull and there's just enough of a change in code that it's frustrating.

Thanks!

Is it Friday yet?

It is Friday.

Could you lay out what you need a little more fully?

Sure... I'm trying to use this Private Function:

Private Function IsValidData() As Boolean
        IsValidData = True

        If cboRptType.SelectedItem <> True Then
            MessageBox.Show("You must choose a Report Type!", "Input Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            IsValidData = False
        ElseIf cboCountry.SelectedItem <> True Then
            MessageBox.Show("You must choose a Country!", "Input Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            IsValidData = False
        ElseIf cboProduct.SelectedItem <> True Then
            MessageBox.Show("You must choose a Product!", "Input Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            IsValidData = False
        End If
    End Function

I call the function within the "Get Report" control like this:

Private Sub btnGetReport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGetReport.Click
        If IsValidData() = True Then
            Me.Hide()
            frmSales.Show()
        End If
    End Sub

I tested the IsValidData Function as a simple IF statement with the one test and it worked great. Then I made it an IF ... Then ... Else If statement and I'm getting an "IsValid Cast Exception unhandled" and a box pointing to my first If statement and saying that "<>" is not a Boolean operator. Why would it work once as a stand alone statement, but throw an error when it checks all three combo boxes?

Thanks again!

Is it Friday yet?

Figured it out, wasn't as bad as I thought. Thanks anyway.

Is it Friday yet?

Sorry, this is how I fixed it. I actually put it back into the getreport click sub.

        Dim Type As Integer
        Dim Country As Integer
        Dim Product As Integer
        Dim Report As String

        Dim IsValidData As Boolean = True
        If cboRptType.SelectedItem Is Nothing Then
            MessageBox.Show("You must select a Report Type!", "Input Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            IsValidData = False
            Exit Sub
        ElseIf cboCountry.SelectedItem Is Nothing Then
            MessageBox.Show("You must select a Country!", "Input Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            IsValidData = False
            Exit Sub
        ElseIf cboProduct.SelectedItem Is Nothing Then
            MessageBox.Show("You must select a Product!", "Input Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            IsValidData = False
            Exit Sub
        Else
            'Names and stores selected values in combo boxes.
            Type = cboRptType.SelectedValue
            Country = cboCountry.SelectedValue
            Product = cboProduct.SelectedValue
            Report = Type & Country & Product
        End If
        'Tests Report’s string return value. Rem it once form load is set properly.
        MessageBox.Show(Report)
        If IsValidData Then
            Me.Hide()
        End If

Is it Friday yet?