checkedlistbox and tabcontrol

[larosa]

I am using the tabcontrol object to display records of a dataset and then displaying the selected row on the next tab "form". I can then change data on the selected row and acceptchanges to the datarow I have defined to hold the data on the first tabcontrol "form", but can't get the changes to update in the sql table. I have tried .update, writing a batch insert routine and everything else I can find in the books we own. I have also added a datagrid to the third Tab "form" and everything works fine. I can update, delete and add rows to the table.

I can post code online or off if desired. This has made me crazy for over a week now, and being very new to vb and .net but an experience programmer doesn't help either.

Thanks in advance.
Mark

 

[chmohan]

can you post ur code

 

[larosa]

Here is my code, please be kind, this is new to me.
Thanks,
Mark
*********************************************
Public Class Form1
Inherits System.Windows.Forms.Form
Public drCurrent, drConCurrent, drRegCurrent As System.Data.DataRow
Public cmdUpdate As System.Data.SqlClient.SqlCommand
Public drCurIDX As Integer

#Region " Windows Form Designer generated code "

Public Sub New()
MyBase.New()

'This call is required by the Windows Form Designer.
InitializeComponent()

'Add any initialization after the InitializeComponent() call
Me.daPlayers.Fill(Me.DsBaseball2.Players)
Me.daContacts.Fill(Me.DsBaseball2.Contacts)
Me.daDivisions.Fill(Me.DsBaseball2.Divisions)
Me.daLeague.Fill(Me.DsBaseball2.League)
Me.daRegistrations.Fill(Me.DsBaseball2.Registration)
Me.daSeasons.Fill(Me.DsBaseball2.Seasons)
Me.daVolunteers.Fill(Me.DsBaseball2.Volunteers)
Me.daVolData.Fill(Me.DsBaseball2.VolunteerData)
Me.daTeams.Fill(Me.DsBaseball2.Teams)
Me.DsBaseball2.Players.DefaultView.Sort = "PlayerID"



End Sub
'''
''' The rest of this region has not been changed
'''
#End Region
#Region "Utility Functions"

Private Sub UpdateDisplay()

Dim curRow, lastRow As Integer

curRow = Me.CheckedListBox1.SelectedIndex + 1
lastRow = Me.CheckedListBox1.Items.Count

Me.txtPosition.Text = "Player "
Me.txtPosition.Text &= curRow
Me.txtPosition.Text &= " of "
Me.txtPosition.Text &= lastRow

End Sub
'
' Not used presently
'
Function GetRow() As DataRow
Dim bm As BindingManagerBase
Dim drv As DataRowView
Dim dr As DataRow

bm = Me.BindingContext(Me.DsBaseball2, "Players&quot
drv = CType(bm.Current, DataRowView)
GetRow = drv.Row
End Function
#End Region
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

' Adds a column to table Players to join First and Last names to produce a list to select from.
'Dim PlayerName As System.Data.DataColumn
'Me.daPlayers.Fill(Me.DsBaseball2.Tables("Players&quot)
'PlayerName = New System.Data.DataColumn("Name&quot
'PlayerName.DataType = System.Type.GetType("System.String&quot
'PlayerName.Expression = "FirstName + ' ' + LastName"
'Me.DsBaseball2.Tables("players&quot.Columns.Add(PlayerName)
'Me.CheckedListBox1.DataSource = Me.DsBaseball2.Tables("players&quot
'Me.CheckedListBox1.DisplayMember = "Name"

Label1.Text = "Terryville/Plymouth" & vbCrLf & "Little League" & vbCrLf & "ID# 02070614" & vbCrLf _
& vbCrLf & vbCrLf & vbCrLf & "President" & vbCrLf & "Larry Tomasetti"

UpdateDisplay()

End Sub


Private Sub CheckedListBox1_ItemCheck(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck

drCurrent = Me.CheckedListBox1.SelectedItem.Row

End Sub


Private Sub TabControl1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged

Dim strMsg As String
Dim PID As Integer

UpdateDisplay()

If TabControl1.SelectedIndex = 1 Then
Me.DsBaseball2.Players.FindByPlayerID(PID)
' Me.drCurrent.Table.AcceptChanges()
Move_Player_To_Screen()
End If

If TabControl1.SelectedIndex = 2 Then
Move_Registration_to_Screen()
End If

If TabControl1.SelectedIndex = 3 Then
Move_Contact_to_Screen()
End If

End Sub
'
' Player Screen Controls
'
Private Sub Move_Player_To_Screen()
' To set error messages do this
' If me.txtName = " " then
' me.epControl.SetError(Me.txtName, "You Must enter a name&quot
' e.cancel = True
' Else
' me.epControl.SetError(Me.txtName, "&quot
' End If

'Me.txtPlayerID.Text = drCurrent.Item("PlayerID&quot
'Me.DsBaseball2.Players.FindByPlayerID(drCurrent.Item("PlayerID&quot)


Me.txtPlayerID.Text = drCurrent.Item("PlayerID&quot
Me.txtFirstName.Text = drCurrent.Item("FirstName&quot
Me.txtLastName.Text = drCurrent.Item("LastName&quot

If IsDBNull(drCurrent.Item("Address&quot) Then
Me.txtAddress.Text = " "
Else
Me.txtAddress.Text = drCurrent.Item("Address&quot
End If

If IsDBNull(drCurrent.Item("StateOrProvince&quot) Then
Me.txtState.Text = " "
Else
Me.txtState.Text = drCurrent.Item("StateOrProvince&quot
End If

If IsDBNull(drCurrent.Item("City&quot) Then
Me.txtCity.Text = " "
Else
Me.txtCity.Text = drCurrent.Item("City&quot
End If

If IsDBNull(drCurrent.Item("PostalCode&quot) Then
Me.txtZip.Text = ""
Else
Me.txtZip.Text = drCurrent.Item("PostalCode&quot
End If

If IsDBNull(drCurrent.Item("Comments&quot) Then
Me.txtComments.Text = " "
Else
Me.txtComments.Text = drCurrent.Item("Comments&quot
End If

If IsDBNull(drCurrent.Item("Email&quot) Then
Me.txtEmail.Text = " "
Else
Me.txtEmail.Text = drCurrent.Item("Email&quot
End If

If IsDBNull(drCurrent.Item("EmailName&quot) Then
Me.txtEmailName.Text = " "
Else
Me.txtEmailName.Text = drCurrent.Item("EmailName&quot
End If

If IsDBNull(drCurrent.Item("HomePhone&quot) Then
Me.txtHomePhone.Text = " "
Else
Me.txtHomePhone.Text = drCurrent.Item("HomePhone&quot
End If

If IsDBNull(drCurrent.Item("Birthdate&quot) Then
Me.DOB.Value = Now()
Else
Me.DOB.Value = drCurrent.Item("Birthdate&quot
End If

If drCurrent.Item("Gender&quot = "Boy" Then
Me.rbBoy.Checked = True
Me.rbGirl.Checked = False
Else
Me.rbBoy.Checked = False
Me.rbGirl.Checked = True
End If

End Sub

Private Sub btnFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirst.Click
Me.CheckedListBox1.SelectedIndex = 0
drCurrent = Me.CheckedListBox1.SelectedItem.Row
Move_Player_To_Screen()

End Sub

Private Sub btnPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrev.Click

If Me.CheckedListBox1.SelectedIndex = 0 Then
txtMsg.Text = "First Record is Being Displayed."
Else
txtMsg.Text = ""
Me.CheckedListBox1.SelectedIndex = Me.CheckedListBox1.SelectedIndex - 1
End If

drCurrent = Me.CheckedListBox1.SelectedItem.Row

Move_Player_To_Screen()

End Sub

Private Sub BtnNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnNext.Click

If Me.CheckedListBox1.SelectedIndex = Me.CheckedListBox1.Items.Count - 1 Then
txtMsg.Text = "Last Record is Being Displayed."
Else
txtMsg.Text = ""
Me.CheckedListBox1.SelectedIndex = Me.CheckedListBox1.SelectedIndex + 1
End If

drCurrent = Me.CheckedListBox1.SelectedItem.Row


Move_Player_To_Screen()

End Sub

Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLast.Click

Me.CheckedListBox1.SelectedIndex = Me.CheckedListBox1.Items.Count - 1

drCurrent = Me.CheckedListBox1.SelectedItem.Row

Move_Player_To_Screen()

End Sub
'
' Contact Screen Control
'
Private Sub Move_Contact_to_Screen()

txtConPlayer.Text = (Trim(txtFirstName.Text) & " " & Trim(txtLastName.Text))

txtConID.Text = txtPlayerID.Text

If lstCons.SelectedItems.Count = 0 Then
' No Contacts to Display - Display Blank Screen
Me.txtConName.Text = " "
Me.txtConEmail.Text = " "
Me.txtConPhone.Text = " "
Me.txtConRel.Text = " "
GoTo lstCons_Exit
End If

If IsDBNull(lstCons.SelectedItem("Contact&quot) Then
Me.txtConName.Text = " "
Else
txtConName.Text = lstCons.SelectedItem("Contact&quot
End If

If IsDBNull(lstCons.SelectedItem("Email&quot) Then
Me.txtConEmail.Text = " "
Else
txtConEmail.Text = lstCons.SelectedItem("Email&quot
End If

If IsDBNull(lstCons.SelectedItem("PhoneNumber&quot) Then
Me.txtConPhone.Text = " "
Else
txtConPhone.Text = lstCons.SelectedItem("PhoneNumber&quot
End If

If IsDBNull(lstCons.SelectedItem("Relation&quot) Then
Me.txtConRel.Text = " "
Else
txtConRel.Text = lstCons.SelectedItem("Relation&quot
End If

lstCons_Exit:

End Sub

Private Sub btnConFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConFirst.Click

Me.lstCons.SelectedIndex = 0
drConCurrent = Me.lstCons.SelectedItem.Row
Move_Contact_to_Screen()

End Sub

Private Sub btnConPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConPrev.Click

If Me.lstCons.SelectedIndex = 0 Then
txtConMsg.Text = "First Record is Being Displayed."
Else
txtConMsg.Text = ""
Me.lstCons.SelectedIndex = Me.lstCons.SelectedIndex - 1
End If

drConCurrent = Me.lstCons.SelectedItem.Row

Move_Contact_to_Screen()

End Sub

Private Sub btnConNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConNext.Click

If Me.lstCons.SelectedIndex = Me.lstCons.Items.Count - 1 Then
txtConMsg.Text = "Last Record is Being Displayed."
Else
txtConMsg.Text = ""
Me.lstCons.SelectedIndex = Me.lstCons.SelectedIndex + 1
End If

drConCurrent = Me.lstCons.SelectedItem.Row

Move_Contact_to_Screen()

End Sub

Private Sub btnConLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConLast.Click

Me.lstCons.SelectedIndex = Me.lstCons.Items.Count - 1

drConCurrent = Me.lstCons.SelectedItem.Row

Move_Contact_to_Screen()

End Sub
'
' Registration Screen Control
'
Private Sub Move_Registration_to_Screen()

txtRegName.Text = (Trim(txtFirstName.Text) & " " & Trim(txtLastName.Text))
txtRegID.Text = txtPlayerID.Text

If IsDBNull(lstRegs.SelectedItem("RegistrationYear&quot) Then
Me.txtRegYear.Text = " "
Else
Me.txtRegYear.Text = lstRegs.SelectedItem("RegistrationYear&quot
End If

If IsDBNull(lstRegs.SelectedItem("Season&quot) Then
Me.txtRegSeason.Text = " "
Else
Me.txtRegSeason.Text = lstRegs.SelectedItem("Season&quot
End If

If IsDBNull(lstRegs.SelectedItem("LeagueName&quot) Then
Me.txtRegLeagueName.Text = " "
Else
Me.txtRegLeagueName.Text = lstRegs.SelectedItem("LeagueName&quot
End If

If IsDBNull(lstRegs.SelectedItem("LeagueAge&quot) Then
Me.txtRegLeagueAge.Text = " "
Else
Me.txtRegLeagueAge.Text = lstRegs.SelectedItem("LeagueAge&quot
End If

If IsDBNull(lstRegs.SelectedItem("DivisionName&quot) Then
Me.txtRegDiv.Text = " "
Else
Me.txtRegDiv.Text = lstRegs.SelectedItem("DivisionName&quot
End If

If IsDBNull(lstRegs.SelectedItem("Team&quot) Then
Me.txtRegTeam.Text = " "
Else
Me.txtRegTeam.Text = lstRegs.SelectedItem("Team&quot
End If

If IsDBNull(lstRegs.SelectedItem("Medical&quot) Then
Me.txtRegMed.Text = " "
Else
Me.txtRegMed.Text = lstRegs.SelectedItem("Medical&quot
End If

If IsDBNull(lstRegs.SelectedItem("Comments&quot) Then
Me.txtRegComments.Text = " "
Else
Me.txtRegComments.Text = lstRegs.SelectedItem("Comments&quot
End If

If IsDBNull(lstRegs.SelectedItem("RegistrationDate&quot) Then
Me.RegDate.Value = Now()
Else
Me.RegDate.Value = lstRegs.SelectedItem("RegistrationDate&quot
End If

If IsDBNull(lstRegs.SelectedItem("RegFee&quot) Then
Me.txtRegFee.Text = " "
Else
Me.txtRegFee.Text = CInt(lstRegs.SelectedItem("RegFee&quot).ToString("c&quot
End If

If IsDBNull(lstRegs.SelectedItem("CheckNumber&quot) Then
Me.txtCheckNumber.Text = " "
Else
Me.txtCheckNumber.Text = lstRegs.SelectedItem("CheckNumber&quot
End If

If IsDBNull(lstRegs.SelectedItem("CandyBoxes&quot) Then
Me.txtCandyBoxes.Text = " "
Else
Me.txtCandyBoxes.Text = lstRegs.SelectedItem("CandyBoxes&quot
End If

If IsDBNull(lstRegs.SelectedItem("DonationAmount&quot) Then
Me.txtDonAmt.Text = " "
Else
Me.txtDonAmt.Text = CInt(lstRegs.SelectedItem("DonationAmount&quot).ToString("c&quot
End If

If IsDBNull(lstRegs.SelectedItem("CandyDollars&quot) Then
Me.txtCandyDollars.Text = " "
Else
Me.txtCandyDollars.Text = CInt(lstRegs.SelectedItem("CandyDollars&quot).ToString("c&quot
End If

If lstRegs.SelectedItem("Paid&quot = True Then
Me.cbRegPaid.Checked = True
Else
Me.cbRegPaid.Checked = False
End If

If lstRegs.SelectedItem("CandyBuyout&quot = True Then
Me.cbRegBuyout.Checked = True
Else
Me.cbRegBuyout.Checked = False
End If

If lstRegs.SelectedItem("CandyMoney&quot = True Then
Me.cbRegCandyMoney.Checked = True
Else
Me.cbRegCandyMoney.Checked = False
End If

End Sub

Private Sub btnRegFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegFirst.Click

Me.lstRegs.SelectedIndex = 0

drRegCurrent = Me.lstRegs.SelectedItem.Row

txtRegMsg.Text = ""

Move_Registration_to_Screen()

End Sub

Private Sub btnRegPrev_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegPrev.Click

If Me.lstRegs.SelectedIndex = 0 Then
txtRegMsg.Text = "First Record is Being Displayed."
Else
txtRegMsg.Text = ""
Me.lstRegs.SelectedIndex = Me.lstRegs.SelectedIndex - 1
End If

drRegCurrent = Me.lstRegs.SelectedItem.Row

Move_Registration_to_Screen()

End Sub

Private Sub btnRegNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegNext.Click

If Me.lstRegs.SelectedIndex = Me.lstRegs.Items.Count - 1 Then
txtRegMsg.Text = "Last Record is Being Displayed."
Else
txtRegMsg.Text = ""
Me.lstRegs.SelectedIndex = Me.lstRegs.SelectedIndex + 1
End If

drRegCurrent = Me.lstRegs.SelectedItem.Row

Move_Registration_to_Screen()

End Sub

Private Sub btnRegLast_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegLast.Click

Me.lstRegs.SelectedIndex = Me.lstRegs.Items.Count - 1

drRegCurrent = Me.lstRegs.SelectedItem.Row

txtRegMsg.Text = ""

Move_Registration_to_Screen()

End Sub

Private Sub btnPlayerUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayerUpdate.Click

Dim drMsg As String

drCurrent.Item("FirstName&quot = Me.txtFirstName.Text
drCurrent.Item("LastName&quot = Me.txtLastName.Text

If IsDBNull(Me.txtAddress.Text) Then
drCurrent.Item("Address&quot = " "
Else
drCurrent.Item("Address&quot = Me.txtAddress.Text
End If

If IsDBNull(Me.txtState.Text) Then
drCurrent.Item("StateOrProvince&quot = " "
Else
drCurrent.Item("StateOrProvince&quot = Me.txtState.Text
End If

If IsDBNull(Me.txtCity.Text) Then
drCurrent.Item("City&quot = " "
Else
drCurrent.Item("City&quot = Me.txtCity.Text
End If

If IsDBNull(Me.txtZip.Text) Then
drCurrent.Item("PostalCode&quot = ""
Else
drCurrent.Item("PostalCode&quot = Me.txtZip.Text
End If

If IsDBNull(Me.txtComments.Text) Then
drCurrent.Item("Comments&quot = " "
Else
drCurrent.Item("Comments&quot = Me.txtComments.Text
End If

If IsDBNull(Me.txtEmail.Text) Then
drCurrent.Item("Email&quot = " "
Else
drCurrent.Item("Email&quot = Me.txtEmail.Text
End If

If IsDBNull(Me.txtEmailName.Text) Then
drCurrent.Item("EmailName&quot = " "
Else
drCurrent.Item("EmailName&quot = Me.txtEmailName.Text
End If

If IsDBNull(Me.txtHomePhone.Text) Then
drCurrent.Item("HomePhone&quot = " "
Else
drCurrent.Item("HomePhone&quot = Me.txtHomePhone.Text
End If

If IsDBNull(Me.DOB.Value) Then
drCurrent.Item("Birthdate&quot = Now()
Else
drCurrent.Item("Birthdate&quot = Me.DOB.Value
End If

If Me.rbBoy.Checked = True Then
drCurrent.Item("Gender&quot = "Boy"
Else
drCurrent.Item("Gender&quot = "Girl"
End If

Me.drCurrent.Table.AcceptChanges()

Me.daPlayers.Update(Me.DsBaseball2.Players)

'Update_Player()

End Sub

Private Sub Update_Player()

Dim rowPlayers As DataRow
rowPlayers = Me.DsBaseball2.Tables("Players&quot.Rows.Find(drCurrent.Item("PlayerID&quot)
If rowPlayers.RowError = "" Then
rowPlayers.BeginEdit()
' rowPlayers("PlayerID&quot = drCurrent.Item("PlayerID&quot
rowPlayers("FirstName&quot = drCurrent.Item("FirstName&quot
rowPlayers("LastName&quot = drCurrent.Item("LastName&quot
rowPlayers("Address&quot = drCurrent.Item("Address&quot
rowPlayers("StateOrProvince&quot = drCurrent.Item("StateOrProvince&quot
rowPlayers("City&quot = drCurrent.Item("City&quot
rowPlayers("PostalCode&quot = drCurrent.Item("PostalCode&quot
rowPlayers("Comments&quot = drCurrent.Item("Comments&quot
rowPlayers("Email&quot = drCurrent.Item("Email&quot
rowPlayers("EmailName&quot = drCurrent.Item("EmailName&quot
rowPlayers("HomePhone&quot = drCurrent.Item("HomePhone&quot
rowPlayers("Birthdate&quot = drCurrent.Item("Birthdate&quot
rowPlayers("Gender&quot = drCurrent.Item("Gender&quot
rowPlayers.EndEdit()
End If

GoTo Good_Update

Skip_Update:
Dim Pmsg As String = "Player Update error"
GoTo P_Msg

Good_Update:
Pmsg = "Update Succeeded"
P_Msg:
MessageBox.Show(Pmsg)
End Sub



Private Sub Quit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quit.Click
Close()
End Sub


End Class
************************************************