combo box with 'Please Select' in vb 2008

[Kai12]

Hello
I am trying to create a combo box that would display data from a dataset, and also a 'Please Select' as the first item. I have written the following code which derives from a combo box and it works fine in visual studio 2003 but in 2008 would not display the comboboxtext (which is 'Please select'). any one has any ideas what i have done wrong?

Public Class DoubleDataSourceCombo
    Inherits ComboBox
 
    Dim myDataTable As DataTable
    Public comboboxText As String
    Protected Overrides Sub OnDataSourceChanged(ByVal e As System.EventArgs)
        MyBase.OnDataSourceChanged(e)
        Static blnDataSourceSet As Boolean = False
        If blnDataSourceSet = True Then
            blnDataSourceSet = False
            Return
        End If
        myDataTable = New DataTable
        If DisplayMember <> "" Then myDataTable.Columns.Add(Me.DisplayMember)
        If ValueMember <> "" Then myDataTable.Columns.Add(Me.ValueMember)
        Dim row As DataRow = myDataTable.NewRow
        If DisplayMember <> "" Then
            row.Item(Me.DisplayMember) = comboboxText
        End If
        If ValueMember <> "" Then
            row.Item(Me.ValueMember) = DBNull.Value
            'row.Item(Me.ValueMember) = -1
        End If
        myDataTable.Rows.Add(row)
        For Each o As Object In Me.DataSource
            row = myDataTable.NewRow
            If DisplayMember <> "" Then
                row.Item(Me.DisplayMember) = o(Me.DisplayMember)
            End If
            If ValueMember <> "" Then
                row.Item(Me.ValueMember) = o(Me.ValueMember)
            End If
            myDataTable.Rows.Add(row)
        Next
        Dim ar As New ArrayList
        For Each oo As Object In myDataTable.DefaultView
            ar.Add(oo)
        Next
        blnDataSourceSet = True
        Me.DataSource = myDataTable.DefaultView
    End Sub
End Class

'then in windows form i have the following code:

dim cbo as new doubledatasourcecombo
cbo.comboboxtext="Please Select"
cbo.displaymember="EmployeeName"
cbo.valuemember="PersonnelID"
cbo.datasource=dr 'which is a datarow array

any one has any ideas on this?
thanks

[raids51]

fill the combobox from the dataset, then insert a new combobox item at the index of 0.

[truezplaya]

Can't you set the combo boxes text property to please select and then populate from a dataset?

[Kai12]

thanks that should do the trick,

[pwptr40]

Try appending data to your datatable, then bind your data to your combobox

something like:

Dim newEmployeeRow As DataRow = myDataTable.NewRow()
newEmployeeRow ("EmployeeName") = "Please Select an Employee ----------"
newEmployeeRow ("PersonnelID") = "000"
myDataTable.Rows.InsertAt(newEmployeeRow, 0)

this will set "Please Select an Employee ---------" to the top of your ComboBox...