combo box does not update to dataadapter for some reason

Hi morphinex, my savior =)

I created this thread around same time I reply to you on other post,
http://www-tcsn.experts-exchange.com/Programming/Programming_Languages/Dot_Net/Q_20742884.html

Currently, I am working step 4, you told me on the link above; which was to write a code to update the "SelectedIndex" of the combo box to reflect the item chosen or item that are loaded in the begining.
I created text box and binded to same datasource that I had with combobox and noticed that value in textbox were changed everytime I open the form but combobox was sitting on top of the row.

So, I am in a process of writing a code so that this one function searches a value of text box in a combobox.

I will update and write my code when I am done with it.
Give me 10 minutes =)
Thanx again~

BTW, how am I suppose to show the code of obdsSources? it's a typed dataset from dataadapters that I have.

This is what I tried in the Load method,

    Private Sub frmSources_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim currentID As Integer
        Dim isitFound As Boolean
        Dim i As Integer
        Dim comboID() As Integer

        i = 0
        currentID = CType(cmb_Done_By.SelectedValue, Integer)

        Try
            'Attempt to load the dataset.
            Me.LoadDataSet()
        Catch eLoad As System.Exception
            'Add your error handling code here.
            'Display error message, if any.
            System.Windows.Forms.MessageBox.Show(eLoad.Message)
        End Try

        For j As Integer = 0 To cmb_Done_By.Items.Count - 1
            ' I get an error here, saying can't cast from datarowview to integer
            ' So am I suppose to make a new DataRowView object then what?
            comboID(j) = CType(cmb_Done_By.Items.Item(j), Integer)
        Next


        While Not isitFound Or i <= cmb_Done_By.Items.Count - 1
            If currentID = comboID(i) Then
                cmb_Done_By.SelectedValue = i
                isitFound = True
            End If
            i += 1
        End While

        If Not isitFound Then
            cmb_Done_By.SelectedValue = -1
        End If

        Me.objdsSources_PositionChanged()
    End Sub

I wasn't expecting this to be time wasting..  Ah.. how easy it was when I made those combo boxes in MS Access! T.T

hi morphinex,
I was busy lately with something else... <family stuff>
ANYWAY,
thanx again for the great help!
I realized, thanx to you, that everytime the form popup, combo boxes's text does not get to initialize correctly *WHY?*
So, I added the following lines, it's kindda ugly and long.. and I hope there are better ways of doing this than what I've did.
Can you think of any shorter way for doing this??
I mean, if I have more than one combo box in the form than, I have to initalize every one of them and I thought there must be a initizliation for all this in one line.
                                     =======

After objdsSources has been filled with proper data adapters.
-------------------------------------------------------------------------------
        ' This line is after the LoadDataSet(), since the rows has not been filled yet.
        Dim myVar As Object = objdsSources.Sources.Rows.Item(0).Item("Done_by")

        If Not IsDBNull(myVar) Then
            currentID = CType(myVar, Integer)
            i = 0
            j = 0

            Try
                Me.SqlConnection1.Open()
                drWarpers = daWarpers.SelectCommand.ExecuteReader

                While drWarpers.Read()
                    getItems(j) = CType(drWarpers.GetInt32(0), Integer)
                    j += 1
                End While

                j -= 1

                drWarpers.Close()
                SqlConnection1.Close()
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try

            While Not (isitFound Or i >= j)
                Dim test As Integer
                test = getItems(i)

                If currentID = test Then
                    cmb_Done_By.SelectedValue = currentID
                    isitFound = True
                End If

                i += 1
            End While

            If Not isitFound Then
                cmb_Done_By.SelectedValue = -1
                cmb_Done_By.Text = ""
            End If

        Else
            cmb_Done_By.SelectedValue = -1
            cmb_Done_By.Text = ""
        End If

- My other question -

It's about the totalRows.
I am trying to fetch the totalRows from the drWarpers, but there wasn't a method such as count() or totalRows().
Is there way to get the totalRows without making my own?

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

        Dim isitFound As Boolean = False
        Dim i As Integer
        Dim j As Integer

        Dim drWarpers As Data.SqlClient.SqlDataReader

        Dim totalRows As Integer

        Dim currentID As Integer

        Try
            'Attempt to load the dataset.
            Me.LoadDataSet()
        Catch eLoad As System.Exception
            'Add your error handling code here.
            'Display error message, if any.
            System.Windows.Forms.MessageBox.Show(eLoad.Message)
        End Try

        ' This line is after the LoadDataSet(), since the rows has not been filled yet.
        Dim myVar As Object = objdsSources.Sources.Rows.Item(0).Item("Done_by")

        Try
            Me.SqlConnection1.Open()
            drWarpers = daWarpers.SelectCommand.ExecuteReader

            While drWarpers.Read()
                totalRows += 1
            End While

            totalRows -= 1

            drWarpers.Close()
            SqlConnection1.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try

        Dim getItems As Integer() = New Integer(totalRows) {}