need help to fill textboxes from a selected item in datagrid-selected index changed.

Joined
Dec 9, 2008
Messages
5
Reaction score
0
I am trying to fill textboxes with the item I select in the datagrid but I keep getting the same record no matter what I select in the grid. I ham using a selected index changed event handler. here is my code behind for the event handler.

Code:
 Protected Sub MHGrid_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles MHGrid.SelectedIndexChanged
        Me.Table1.Visible = True
        Me.MHGrid.Visible = True

        Dim dvSql As DataView = DirectCast(MHFoundation.Select(DataSourceSelectArguments.Empty), DataView)
       
        Me.MHFoundation.SelectCommand = "SELECT POPULATION_LIST_ID, FIRST_NAME, MIDDLE_NAME, SSN, BIRTH_DATE, ADDRESS, SPOUSE_NAME, OTHER_ID2, WORK_PHONE, PREFERRED_COMMUNICATION, LAST_NAME, NAME_PREFIX, NAME_SUFFIX, MRN1, CITY, STATE, ZIP, CHILDREN,OTHER_ID1,POPULATION_TYPE,HOME_PHONE,CELL_PHONE,POPULATION_RATING,NOTES,EMAIL,PERSON_TYPE FROM CHP_POPULATION_LIST where POPULATION_LIST_ID = '" & ID.ToString() & "'"




        For Each drvSql As DataRowView In dvSql
            Me.lblPopulationID.Text = drvSql("POPULATION_LIST_ID").ToString
            Me.txtMRN.Text = drvSql("MRN1").ToString()
            Me.txtBirthDate.Text = drvSql("BIRTH_DATE").ToString()
            Me.txtPrefix.Text = drvSql("NAME_PREFIX").ToString()
            Me.txtFirstName.Text = drvSql("FIRST_NAME").ToString()
            Me.txtMiddleName.Text = drvSql("MIDDLE_NAME").ToString()
            Me.txtLastName.Text = drvSql("LAST_NAME").ToString()
            Me.txtSuffix.Text = drvSql("NAME_SUFFIX").ToString()
            Me.txtAddress.Text = drvSql("ADDRESS").ToString()
            Me.txtCity.Text = drvSql("CITY").ToString()
            Me.txtState.Text = drvSql("STATE").ToString()
            Me.txtZip.Text = drvSql("ZIP").ToString()
            Me.txtHomePhone.Text = drvSql("HOME_PHONE").ToString()
            Me.txtWorkPhone.Text = drvSql("WORK_PHONE").ToString()
            Me.txtCellPhone.Text = drvSql("CELL_PHONE").ToString()
            Me.txtEmail.Text = drvSql("EMAIL").ToString()
            Me.txtPreferred.Text = drvSql("PREFERRED_COMMUNICATION").ToString()
            Me.txtPerson.Text = drvSql("PERSON_TYPE").ToString()
            Me.txtOtherID1.Text = drvSql("OTHER_ID1").ToString()
            Me.txtOtherID2.Text = drvSql("OTHER_ID2").ToString()
            Me.txtSpouseName.Text = drvSql("SPOUSE_NAME").ToString()
            Me.txtChildren.Text = drvSql("CHILDREN").ToString()
            Me.txtNotes.Text = drvSql("NOTES").ToString()
        Next

    End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

Forum statistics

Threads
473,731
Messages
2,569,432
Members
44,835
Latest member
KetoRushACVBuy

Latest Threads

Top