Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Visual Basic > VB.NET 1.0 > Pro VB.NET 2002/2003
Password Reminder
Register
| FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Pro VB.NET 2002/2003 For advanced Visual Basic coders working .NET version 2002/2003. Beginning-level questions will be redirected to other forums, including Beginning VB.NET.
Welcome to the p2p.wrox.com Forums.

You are currently viewing the Pro VB.NET 2002/2003 section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Reply
 
Thread Tools Search this Thread Display Modes
  #1 (permalink)  
Old May 17th, 2007, 09:29 PM
Registered User
 
Join Date: May 2007
Location: Bristol, CT, USA.
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default system.stackoverflowexception in system.windows.fo

I can't figure out for the life of me why I am getting the system.stackoverflowexception in system.windows.forms.dll thrown in my application If the debugger is right it is not my code the exception is thrown and then it says there is no source code for it, asking me to take a look at the dissassembly, it happens when I do any number of things and the exception is always at the same line of assembly It occurse if I attempt to open the form from another form in the application (Form won't even open, if I set it as the startup form it will open up) then it also occurs if I attempt to change the record that is selected, finally it also occurs if I select a combo control in the app there are three of them that bind to a database, but whose list member to select from come from another table in the database. I can select one combo box but then if I try anything else I get the exception. Here is the code if anyone has the time. I appreciate all of your help in advance.

Code:
    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.Message)
        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"


Reply With Quote
  #2 (permalink)  
Old May 17th, 2007, 10:34 PM
planoie's Avatar
Friend of Wrox
Points: 16,481, Level: 55
Points: 16,481, Level: 55 Points: 16,481, Level: 55 Points: 16,481, Level: 55
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
 
Join Date: Aug 2003
Location: Clifton Park, New York, USA.
Posts: 5,407
Thanks: 0
Thanked 16 Times in 16 Posts
Default

Overflow errors are usually the result of an endless loop.

Short of trying to "execute" your code in my head, I'd suggest you try to step through it to see if you can find a place where you might be repeating something without a chance to get out.

-Peter
Reply With Quote
  #3 (permalink)  
Old May 18th, 2007, 12:40 AM
Registered User
 
Join Date: May 2007
Location: Bristol, CT, USA.
Posts: 2
Thanks: 0
Thanked 0 Times in 0 Posts
Default

I did step through it and it didn't do any good nothing in my code seemed to do it, I also went back and commented out all of the code that I added, after the last time it worked ok and now I am getting it even without that additional code, I think the file may be corrupt or something, I am rewritting the faorm in another solution to see if I get the same error

Reply With Quote
Reply


Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is Off
HTML code is Off
Trackbacks are Off
Pingbacks are On
Refbacks are Off


Similar Threads
Thread Thread Starter Forum Replies Last Post
System.Windows.Clipboard ???? narven C# 1 May 20th, 2007 08:41 PM
Insert System date and System Time -Form _TextBox cnkumar74 VB How-To 14 February 14th, 2007 10:52 AM
Casting System::Object __gc * to System.Double[] nepsat Visual C++ 3 November 19th, 2005 12:51 PM
How to solve System.StackOverFlowException sibajibasak General .NET 3 February 11th, 2005 12:36 AM
System Windows Permission lpastor C# 0 July 9th, 2004 02:26 AM



All times are GMT -4. The time now is 01:59 PM.


Powered by vBulletin®
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.