I am writting a DB front end in VB.NET 2003 I have a form that displays
employee information it has a dataset loaded from the DB that also includes
tables for lookup in some comboboxes that are bound to the employees table so
I load the combo boxes and then set the selectedText propertyt to bind to the
Employee table as only those listed are choosable, This works problem is now
my app it throwing the exception above within the system.windows.forms.dll
namespace if I try to change the record I get the error (navigate through
them) if I try to load it from another form in the app I get the error I can
only load the form as the startup form, I can get any one of the three combo
boxes to aloow me to select but after I try to use any other control I get
the exception thrown, any ideas guys? the code is below for perusing if you
like. Oh by the way the debugger says there is no source code for the
exception and only lets me view the dissassembly and the exception is always
at the same line of dissassembly.
Dim odbAISConnection As New OleDb.OleDbConnection("Provider=Microsoft.Jet.
OLEDB.4.0.;" & "Data Source=" & Application.StartupPath & "\Data\Employees.
edb;User Id=Admin;Password=")
'Dim dsAdmin As New Data.DataSet
Dim dsEmployees As New Data.DataSet
Public Sub LoadDataSets()
Me.odbAISConnection.Open()
Dim odbaEmployees As New OleDb.OleDbDataAdapter
Dim odbaCerts As New OleDb.OleDbDataAdapter
Dim odbaAddresses As New OleDb.OleDbDataAdapter
Dim odbaPhone As New OleDb.OleDbDataAdapter
Dim odbaEC As New OleDb.OleDbDataAdapter
Dim odbaMedctrl As New OleDb.OleDbDataAdapter
Dim odbsEmployees As New OleDb.OleDbCommand("Select Employees.* FROM
Employees ORDER BY txtLastName, txtFirstName, txtMiddleInitial")
Dim odbsCerts As New OleDb.OleDbCommand("Select Certs.* FROM Certs")
Dim odbsAddresses As New OleDb.OleDbCommand("Select Addresses.* FROM
Addresses")
Dim odbsPhone As New OleDb.OleDbCommand("Select PhoneNumbers.* FROM
PhoneNumbers")
Dim odbsEC As New OleDb.OleDbCommand("Select EmergencyContacts.* FROM
EmergencyContacts")
Dim odbsMedctrl As New OleDb.OleDbCommand("Select Medctrl.* FROM
Medctrl")
Dim odbcEmployees As New OleDb.OleDbCommandBuilder(odbaEmployees)
Dim odbcCerts As New OleDb.OleDbCommandBuilder(odbaCerts)
Dim odbcAddresses As New OleDb.OleDbCommandBuilder(odbaAddresses)
Dim odbcPhone As New OleDb.OleDbCommandBuilder(odbaPhone)
Dim odbcEC As New OleDb.OleDbCommandBuilder(odbaEC)
Dim odbcMedctrl As New OleDb.OleDbCommandBuilder(odbaMedctrl)
'Dim odbaTrucks As New OleDb.OleDbDataAdapter
Dim odbaCertList As New OleDb.OleDbDataAdapter
Dim odbaPhoneTypes As New OleDb.OleDbDataAdapter
Dim odbaStatusList As New OleDb.OleDbDataAdapter
'Dim odbaShiftType As New OleDb.OleDbDataAdapter
Dim odbaTrain As New OleDb.OleDbDataAdapter
'Dim odbaOffense As New OleDb.OleDbDataAdapter
'Dim odbaLevel As New OleDb.OleDbDataAdapter
'Dim odbaLocations As New OleDb.OleDbDataAdapter
'Dim odbaWeeks As New OleDb.OleDbDataAdapter
Dim odbaClass As New OleDb.OleDbDataAdapter
Dim odbaHospitals As New OleDb.OleDbDataAdapter
'Dim odbaDays As New OleDb.OleDbDataAdapter
'Dim odbaDisciplineActions As New OleDb.OleDbDataAdapter
Dim odbaZips As New OleDb.OleDbDataAdapter
'Dim odbsTrucks As New OleDb.OleDbCommand("Select Trucks.* FROM
Trucks")
Dim odbsCertList As New OleDb.OleDbCommand("Select CertificationList.
* FROM CertificationList")
Dim odbsPhoneTypes As New OleDb.OleDbCommand("Select PhoneTypeList.*
FROM PhoneTypeList")
Dim odbsStatusList As New OleDb.OleDbCommand("Select StatusList.*
FROM StatusList")
'Dim odbsShiftType As New OleDb.OleDbCommand("Select ShiftTypeList.*
FROM ShiftTypeList")
Dim odbsTrain As New OleDb.OleDbCommand("Select TrainingTypeList.*
FROM TrainingTypeList")
'Dim odbsOffense As New OleDb.OleDbCommand("Select OffenseList.* FROM
OffenseList")
'Dim odbsLevel As New OleDb.OleDbCommand("Select LevelList.* FROM
LevelList")
'Dim odbsLocations As New OleDb.OleDbCommand("Select LocationList.*
FROM LocationList")
'Dim odbsWeeks As New OleDb.OleDbCommand("Select WeeksList.* FROM
WeeksList")
Dim odbsClass As New OleDb.OleDbCommand("Select ClassList.* FROM
ClassList")
Dim odbsHospitals As New OleDb.OleDbCommand("Select HospitalList.*
FROM HospitalList")
'Dim odbsDays As New OleDb.OleDbCommand("Select DayofWeek.* FROM
DayofWeek")
'Dim odbsDisciplineActions As New OleDb.OleDbCommand("Select
ActionsList.* FROM ActionsList")
Dim odbsZips As New OleDb.OleDbCommand("Select ZipCodes.* FROM
ZipCodes ORDER BY State_Abbreviation")
'Dim odbcTrucks As New OleDb.OleDbCommandBuilder(odbaTrucks)
Dim odbcCertList As New OleDb.OleDbCommandBuilder(odbaCertList)
Dim odbcPhoneTypes As New OleDb.OleDbCommandBuilder(odbaPhoneTypes)
Dim odbcStatusList As New OleDb.OleDbCommandBuilder(odbaStatusList)
'Dim odbcShiftType As New OleDb.OleDbCommandBuilder(odbaShiftType)
Dim odbcTrain As New OleDb.OleDbCommandBuilder(odbaTrain)
'Dim odbcOffense As New OleDb.OleDbCommandBuilder(odbaOffense)
'Dim odbcLevel As New OleDb.OleDbCommandBuilder(odbaLevel)
'Dim odbcLocations As New OleDb.OleDbCommandBuilder(odbaLocations)
'Dim odbcWeeks As New OleDb.OleDbCommandBuilder(odbaWeeks)
'Dim odbcClass As New OleDb.OleDbCommandBuilder(odbaClass)
Dim odbcHospitals As New OleDb.OleDbCommandBuilder(odbaHospitals)
'Dim odbcDays As New OleDb.OleDbCommandBuilder(odbaDays)
'Dim odbcDisciplineActions As New OleDb.OleDbCommandBuilder
(odbaDisciplineActions)
Dim odbcZips As New OleDb.OleDbCommandBuilder(odbaZips)
odbaEmployees.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaEmployees.SelectCommand = odbsEmployees
odbaEmployees.SelectCommand.Connection = odbAISConnection
odbaCerts.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaCerts.SelectCommand = odbsCerts
odbaCerts.SelectCommand.Connection = odbAISConnection
odbaAddresses.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaAddresses.SelectCommand = odbsAddresses
odbaAddresses.SelectCommand.Connection = odbAISConnection
odbaPhone.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaPhone.SelectCommand = odbsPhone
odbaPhone.SelectCommand.Connection = odbAISConnection
odbaEC.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaEC.SelectCommand = odbsEC
odbaEC.SelectCommand.Connection = odbAISConnection
odbaMedctrl.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaMedctrl.SelectCommand = odbsEC
odbaMedctrl.SelectCommand.Connection = odbAISConnection
'odbaTrucks.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaTrucks.SelectCommand = odbsTrucks
'odbaTrucks.SelectCommand.Connection = odbAISConnection
odbaCertList.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaCertList.SelectCommand = odbsCertList
odbaCertList.SelectCommand.Connection = odbAISConnection
odbaPhoneTypes.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaPhoneTypes.SelectCommand = odbsPhoneTypes
odbaPhoneTypes.SelectCommand.Connection = odbAISConnection
odbaStatusList.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaStatusList.SelectCommand = odbsStatusList
odbaStatusList.SelectCommand.Connection = odbAISConnection
'odbaShiftType.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaShiftType.SelectCommand = odbsShiftType
'odbaShiftType.SelectCommand.Connection = odbAISConnection
odbaTrain.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaTrain.SelectCommand = odbsTrain
odbaTrain.SelectCommand.Connection = odbAISConnection
'odbaOffense.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaOffense.SelectCommand = odbsOffense
'odbaOffense.SelectCommand.Connection = odbAISConnection
'odbaLevel.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaLevel.SelectCommand = odbsLevel
'odbaLevel.SelectCommand.Connection = odbAISConnection
'odbaLocations.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaLocations.SelectCommand = odbsLocations
'odbaLocations.SelectCommand.Connection = odbAISConnection
'odbaWeeks.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaWeeks.SelectCommand = odbsWeeks
'odbaWeeks.SelectCommand.Connection = odbAISConnection
odbaClass.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaClass.SelectCommand = odbsClass
odbaClass.SelectCommand.Connection = odbAISConnection
odbaHospitals.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaHospitals.SelectCommand = odbsHospitals
odbaHospitals.SelectCommand.Connection = odbAISConnection
'odbaDays.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaDays.SelectCommand = odbsDays
'odbaDays.SelectCommand.Connection = odbAISConnection
'odbaDisciplineActions.MissingSchemaAction = MissingSchemaAction.
AddWithKey
'odbaDisciplineActions.SelectCommand = odbsDisciplineActions
'odbaDisciplineActions.SelectCommand.Connection = odbAISConnection
odbaZips.MissingSchemaAction = MissingSchemaAction.AddWithKey
odbaZips.SelectCommand = odbsZips
odbaZips.SelectCommand.Connection = odbAISConnection
Try
dsEmployees.ReadXmlSchema(Application.StartupPath & "\Data\
EmployeeData.xsd")
Catch ex As Exception
MessageBox.Show("File Missing Try again", "Missing",
MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1,
MessageBoxOptions.DefaultDesktopOnly)
End Try
Try
odbaEmployees.Fill(dsEmployees, "Employees")
odbaCerts.Fill(dsEmployees, "Certs")
odbaAddresses.Fill(dsEmployees, "Addresses")
odbaPhone.Fill(dsEmployees, "PhoneNumbers")
odbaEC.Fill(dsEmployees, "EmergencyContacts")
odbaMedctrl.Fill(dsEmployees, "Medctrl")
'odbaTrucks.Fill(dsAdmin, "Trucks")
odbaCertList.Fill(dsEmployees, "CertificationList")
odbaPhoneTypes.Fill(dsEmployees, "PhoneTypeList")
odbaStatusList.Fill(dsEmployees, "StatusList")
'odbaShiftType.Fill(dsAdmin, "ShiftTypeList")
odbaTrain.Fill(dsEmployees, "TrainingTypeList")
'odbaOffense.Fill(dsAdmin, "OffenseList")
'odbaLevel.Fill(dsAdmin, "LevelList")
'odbaLocations.Fill(dsAdmin, "LocationList")
'odbaWeeks.Fill(dsAdmin, "WeeksList")
odbaClass.Fill(dsEmployees, "ClassList")
odbaHospitals.Fill(dsEmployees, "HospitalList")
'odbaDays.Fill(dsAdmin, "DayofWeek")
'odbaDisciplineActions.Fill(dsAdmin, "ActionsList")
odbaZips.Fill(dsEmployees, "ZipCodes")
Catch ex As Exception
MessageBox.Show(ex.ToString, "Sorry", MessageBoxButtons.OK,
MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.
DefaultDesktopOnly)
End Try
Me.odbAISConnection.Close()
Me.odbAISConnection.Open()
''odbaTrucks.MissingSchemaAction = MissingSchemaAction.AddWithKey
''odbaTrucks.SelectCommand = odbsTrucks
''odbaTrucks.SelectCommand.Connection = odbAISConnection
'odbaCertList.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaCertList.SelectCommand = odbsCertList
'odbaCertList.SelectCommand.Connection = odbAISConnection
'odbaPhoneTypes.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaPhoneTypes.SelectCommand = odbsPhoneTypes
'odbaPhoneTypes.SelectCommand.Connection = odbAISConnection
'odbaStatusList.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaStatusList.SelectCommand = odbsStatusList
'odbaStatusList.SelectCommand.Connection = odbAISConnection
''odbaShiftType.MissingSchemaAction = MissingSchemaAction.AddWithKey
''odbaShiftType.SelectCommand = odbsShiftType
''odbaShiftType.SelectCommand.Connection = odbAISConnection
'odbaTrain.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaTrain.SelectCommand = odbsTrain
'odbaTrain.SelectCommand.Connection = odbAISConnection
''odbaOffense.MissingSchemaAction = MissingSchemaAction.AddWithKey
''odbaOffense.SelectCommand = odbsOffense
''odbaOffense.SelectCommand.Connection = odbAISConnection
''odbaLevel.MissingSchemaAction = MissingSchemaAction.AddWithKey
''odbaLevel.SelectCommand = odbsLevel
''odbaLevel.SelectCommand.Connection = odbAISConnection
''odbaLocations.MissingSchemaAction = MissingSchemaAction.AddWithKey
''odbaLocations.SelectCommand = odbsLocations
''odbaLocations.SelectCommand.Connection = odbAISConnection
''odbaWeeks.MissingSchemaAction = MissingSchemaAction.AddWithKey
''odbaWeeks.SelectCommand = odbsWeeks
''odbaWeeks.SelectCommand.Connection = odbAISConnection
'odbaClass.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaClass.SelectCommand = odbsClass
'odbaClass.SelectCommand.Connection = odbAISConnection
'odbaHospitals.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaHospitals.SelectCommand = odbsHospitals
'odbaHospitals.SelectCommand.Connection = odbAISConnection
''odbaDays.MissingSchemaAction = MissingSchemaAction.AddWithKey
''odbaDays.SelectCommand = odbsDays
''odbaDays.SelectCommand.Connection = odbAISConnection
''odbaDisciplineActions.MissingSchemaAction = MissingSchemaAction.
AddWithKey
''odbaDisciplineActions.SelectCommand = odbsDisciplineActions
''odbaDisciplineActions.SelectCommand.Connection = odbAISConnection
'odbaZips.MissingSchemaAction = MissingSchemaAction.AddWithKey
'odbaZips.SelectCommand = odbsZips
'odbaZips.SelectCommand.Connection = odbAISConnection
'Try
' dsAdmin.ReadXmlSchema(Application.StartupPath & "\Data\EmpLU.
xsd")
'Catch ex As Exception
' MessageBox.Show("File Missing Try again", "Missing",
MessageBoxButtons.OK, MessageBoxIcon.Error, MessageBoxDefaultButton.Button1,
MessageBoxOptions.DefaultDesktopOnly)
'End Try
'Try
' 'odbaTrucks.Fill(dsAdmin, "Trucks")
' odbaCertList.Fill(dsAdmin, "CertificationList")
' odbaPhoneTypes.Fill(dsAdmin, "PhoneTypeList")
' odbaStatusList.Fill(dsAdmin, "StatusList")
' 'odbaShiftType.Fill(dsAdmin, "ShiftTypeList")
' odbaTrain.Fill(dsAdmin, "TrainingTypeList")
' 'odbaOffense.Fill(dsAdmin, "OffenseList")
' 'odbaLevel.Fill(dsAdmin, "LevelList")
' 'odbaLocations.Fill(dsAdmin, "LocationList")
' 'odbaWeeks.Fill(dsAdmin, "WeeksList")
' odbaClass.Fill(dsAdmin, "ClassList")
' odbaHospitals.Fill(dsAdmin, "HospitalList")
' 'odbaDays.Fill(dsAdmin, "DayofWeek")
' 'odbaDisciplineActions.Fill(dsAdmin, "ActionsList")
' odbaZips.Fill(dsAdmin, "ZipCodes")
'Catch ex As Exception
' MessageBox.Show(ex.ToString, "Sorry", MessageBoxButtons.OK,
MessageBoxIcon.Error, MessageBoxDefaultButton.Button1, MessageBoxOptions.
DefaultDesktopOnly)
'End Try
'Me.odbAISConnection.Close()
End Sub
Public Sub LoadCombo()
Me.cmbSelectEmp.Items.Clear()
Dim i As Int32 = 0
Dim Name As String
For i = 0 To Me.dsEmployees.Tables("Employees").Rows.Count - 1
Name = Me.dsEmployees.Tables("Employees").Rows(i).Item(0) & " --
" & Me.dsEmployees.Tables("Employees").Rows(i).Item(1) & ", " & Me.
dsEmployees.Tables("Employees").Rows(i).Item(2) & " " & Me.dsEmployees.Tables
("Employees").Rows(i).Item(3)
Me.cmbSelectEmp.Items.Add(Name)
Next
For i = 0 To Me.dsEmployees.Tables("ZipCodes").Rows.Count - 1
If Name = Me.dsEmployees.Tables("ZipCodes").Rows(i).Item(2) Then
Else
Name = Me.dsEmployees.Tables("ZipCodes").Rows(i).Item(2)
Me.cmbtxtST.Items.Add(Name)
End If
Next
i = 0
For i = 0 To Me.dsEmployees.Tables("ClassList").Rows.Count - 1
Name = Me.dsEmployees.Tables("ClassList").Rows(i).Item(1)
Me.cmbstrClass.Items.Add(Name)
Next
i = 0
For i = 0 To Me.dsEmployees.Tables("StatusList").Rows.Count - 1
Name = Me.dsEmployees.Tables("StatusList").Rows(i).Item(0 )
Me.cmbstrStatus.Items.Add(Name)
Next
Me.cmbSelectEmp.SelectedIndex = 0
End Sub
Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.
EventArgs) Handles btnAdd.Click
Try
'Clear out the current edits
Me.BindingContext(dsEmployees, "Employees").EndCurrentEdit()
Me.BindingContext(dsEmployees, "Employees").AddNew()
Catch eEndEdit As System.Exception
System.Windows.Forms.MessageBox.Show(eEndEdit.Mess age)
End Try
End Sub
Private Sub btnNavFirst_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNavFirst.Click
Me.BindingContext(dsEmployees, "Employees").Position = 0
End Sub
Private Sub btnLast_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnLast.Click
Me.BindingContext(dsEmployees, "Employees").Position = (Me.
dsEmployees.Tables("Employees").Rows.Count - 1)
End Sub
Private Sub btnNavPrev_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNavPrev.Click
Me.BindingContext(dsEmployees, "Employees").Position = (Me.
BindingContext(dsEmployees, "Employees").Position - 1)
End Sub
Private Sub btnNavNext_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnNavNext.Click
Try
Me.BindingContext(dsEmployees, "Employees").Position = (Me.
BindingContext(dsEmployees, "Employees").Position + 1)
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Sub
Private Sub frmEmployeeAdmin_Load(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles MyBase.Load
'Me.editdtAdjDOH.Text.Format
LoadDataSets()
LoadCombo()
Me.editEmpID.DataBindings.Add("Text", dsEmployees, "Employees.EmpID")
Me.edittxtLastName.DataBindings.Add("Text", dsEmployees, "Employees.
txtLastName")
Me.edittxtFirstName.DataBindings.Add("Text", dsEmployees, "Employees.
txtFirstName")
Me.edittxtMiddleInitial.DataBindings.Add("Text", dsEmployees,
"Employees.txtMiddleInitial")
Me.editdtDOB.DataBindings.Add("Text", dsEmployees, "Employees.dtDOB")
Me.edittxtSS.DataBindings.Add("Text", dsEmployees, "Employees.txtSS")
Me.editdtDOH.DataBindings.Add("Text", dsEmployees, "Employees.dtDOH")
Me.cmbstrClass.DataBindings.Add("SelectedText", dsEmployees,
"Employees.strClassification")
'Me.editstrClassification.DataBindings.Add("Text", dsEmployees,
"Employees.strClassification")
Me.cmbstrStatus.DataBindings.Add("SelectedText", dsEmployees,
"Employees.strStatus")
'Me.editstrStatus.DataBindings.Add("Text", dsEmployees, "Employees.
strStatus")
Me.editdtAdjDOH.DataBindings.Add("Text", dsEmployees, "Employees.
dtAdjDOH")
Me.editdtPDE.DataBindings.Add("Text", dsEmployees, "Employees.dtPDE")
Me.edittxtDLN.DataBindings.Add("Text", dsEmployees, "Employees.
txtDLN")
Me.cmbtxtST.DataBindings.Add("SelectedText", dsEmployees, "Employees.
txtDLST")
'Me.edittxtDLST.DataBindings.Add("Text", dsEmployees, "Employees.
txtDLST")
Me.editdtDLExp.DataBindings.Add("Text", dsEmployees, "Employees.
dtDLExp")
Me.edittxtDLRes.DataBindings.Add("Text", dsEmployees, "Employees.
txtDLRes")
Me.edittxtDLEnd.DataBindings.Add("Text", dsEmployees, "Employees.
txtDLEnd")
Me.editbNU.DataBindings.Add("Checked", dsEmployees, "Employees.bNU")
Me.editbHBVDec.DataBindings.Add("Checked", dsEmployees, "Employees.
bHBVDec")
Me.editdtHBVDecD.DataBindings.Add("Text", dsEmployees, "Employees.
dtHBVDecD")
Me.editdtHBV.DataBindings.Add("Text", dsEmployees, "Employees.dtHBV")
Me.editdtHBV1.DataBindings.Add("Text", dsEmployees, "Employees.
dtHBV1")
Me.editdtHBV2.DataBindings.Add("Text", dsEmployees, "Employees.
dtHBV2")
Me.editdtHBVT.DataBindings.Add("Text", dsEmployees, "Employees.
dtHBVT")
Me.editdtPPD.DataBindings.Add("Text", dsEmployees, "Employees.dtPPD")
Me.editdtOSHA.DataBindings.Add("Text", dsEmployees, "Employees.
dtOSHA")
Me.editdtHaz.DataBindings.Add("Text", dsEmployees, "Employees.dtHaz")
Me.editComments.DataBindings.Add("Text", dsEmployees, "Employees.
Comments")
'Me.dgCerts.DataSource = dsEmployees
'Me.dgCerts.DataMember = "Employees.EmployeesCerts"
'Me.dgAddress.DataSource = dsEmployees.Tables("Addresses").
ParentRelations("EmployeesAddresses")
'Me.dgAddress.DataM = "Employees.EmployeesAddresses"
'Me.dgPhones.DataSource = dsEmployees.Tables("Employees")
'Me.dgPhones.DataMember = "EmployeesPhoneNumbers"
'Me.dgEC.DataSource = dsEmployees
'Me.dgEC.DataMember = "Employees.EmployeesEmergencyContacts"
'Me.dgMedctrl.DataSource = dsEmployees
'Me.dgMedctrl.DataMember = "Employees.EmployeesMedctrl"
