Combo Box Is showing default value!!!

[Sep410]

Hi All,

I have problem with combo box. It is funny but I don't know what to do. When I load my form I load my combos with this Sub:

    Private Sub CityLoad()
        Dim sql As String
 
        Dim ds1 As New DataSet
        Dim ds2 As New DataSet
        Dim con As SqlConnection
        Dim da As SqlDataAdapter
        sql = "SELECT *  FROM tbl_city"
        con = New SqlConnection(StrCon)
        con.Open()
        da = New SqlDataAdapter(sql, con)
        '***CityIni
        da.Fill(ds1)
        cboCityIni.DataSource = ds1.Tables(0)
        cboCityIni.ValueMember = ds1.Tables(0).Columns  (0).ColumnName.ToString
        cboCityIni.DisplayMember = ds1.Tables(0).Columns(1).ColumnName.ToString
        cboCityIni.Text = ""
        ds1 = Nothing
        '***CitySec
        da.Fill(ds2)
        cboCitySec.DataSource = ds2.Tables(0)
        cboCitySec.ValueMember = ds2.Tables(0).Columns(0).ColumnName.ToString
        cboCitySec.DisplayMember = ds2.Tables(0).Columns(1).ColumnName.ToString
        cboCitySec.Text = ""
 
    End Sub
 

Both of these combos are loaded with City but the problem is when I run the application I need to see empty combo(I mean it should not show any value till the user click on them.)
Surprizingly second combo is showing the first item in the combo when form is loaded.

What should I do?

[Plater]

Add a blank row to the begining of your datatable? Really I am surprised that they both did not autoselect the first value

[Sep410]

Thanks .
Can you tell me how to do that?

[Sep410]

I found a easy way

Combo.SelectedValue = 0

[Plater]

Ahh ses I assumed you already had that. you DO have a blank link at the begining, good.
Not sure why it didn't default to that position. Glad you found a fix.