Save changes to Dataset from different TableAdapters

[Blue_Wings]

Hello everyone,

Can someone please tell me why when i press the button to save the changes on several textboxe´s that i have from diferente tables, if i press the button it only save the changes from the first BindingContext, then i need to click on the other textbox and if the cursor is blinking there then i can press the save button again and then gets the changes again from that table and it works.

I would like to press the "save" button and save all the textbox´s at once.

The code that i have is this:

Public Class frmPNTStockList

    Private Sub frmAllPNTStockList_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.HIGH_VISIBILITY_VEST' table. You can move, or remove it, as needed.
        Me.HIGH_VISIBILITY_VESTTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.HIGH_VISIBILITY_VEST)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.PILOT_WING' table. You can move, or remove it, as needed.
        Me.PILOT_WINGTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.PILOT_WING)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.TIE_MAN' table. You can move, or remove it, as needed.
        Me.TIE_MANTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.TIE_MAN)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.STRIPES_FO' table. You can move, or remove it, as needed.
        Me.STRIPES_FOTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.STRIPES_FO)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.STRIPES_COM' table. You can move, or remove it, as needed.
        Me.STRIPES_COMTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.STRIPES_COM)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.BLUE_BELT_MEN' table. You can move, or remove it, as needed.
        Me.BLUE_BELT_MENTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.BLUE_BELT_MEN)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.OVERCOAT_MAN' table. You can move, or remove it, as needed.
        Me.OVERCOAT_MANTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.OVERCOAT_MAN)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.WHITE_SHIRT_LONG_SLEEVE' table. You can move, or remove it, as needed.
        Me.WHITE_SHIRT_LONG_SLEEVETableAdapter.Fill(Me.Uniforms_SoftwareDataSet.WHITE_SHIRT_LONG_SLEEVE)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.WHITE_SHIRT_SHORT_SLEEVE' table. You can move, or remove it, as needed.
        Me.WHITE_SHIRT_SHORT_SLEEVETableAdapter.Fill(Me.Uniforms_SoftwareDataSet.WHITE_SHIRT_SHORT_SLEEVE)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.TROUSERS_DARK_BLUE_MAN' table. You can move, or remove it, as needed.
        Me.TROUSERS_DARK_BLUE_MANTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.TROUSERS_DARK_BLUE_MAN)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.BLAZER_DARK_BLUE_FO' table. You can move, or remove it, as needed.
        Me.BLAZER_DARK_BLUE_FOTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.BLAZER_DARK_BLUE_FO)
        'TODO: This line of code loads data into the 'Uniforms_SoftwareDataSet.BLAZER_DARK_BLUE_COM' table. You can move, or remove it, as needed.
        Me.BLAZER_DARK_BLUE_COMTableAdapter.Fill(Me.Uniforms_SoftwareDataSet.BLAZER_DARK_BLUE_COM)

    End Sub


    Private Sub btnPNTSave_Click(sender As Object, e As EventArgs) Handles btnPNTStockListSave.Click

        Save_Records()

    End Sub

    Private Sub Save_Records()

        With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "BLAZER_DARK_BLUE_COM")

            .EndCurrentEdit()
            If Uniforms_SoftwareDataSet.HasChanges Then
                Try
                    If MsgBox("Record has changer!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
                        Me.BLAZER_DARK_BLUE_COMTableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges())
                        Uniforms_SoftwareDataSet.AcceptChanges()

                    Else
                        Uniforms_SoftwareDataSet.RejectChanges()
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

            End If
        End With

        With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "BLAZER_DARK_BLUE_FO")

            .EndCurrentEdit()
            If Uniforms_SoftwareDataSet.HasChanges Then
                Try
                    If MsgBox("Record has changer!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
                        Me.BLAZER_DARK_BLUE_FOTableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges())
                        Uniforms_SoftwareDataSet.AcceptChanges()

                    Else
                        Uniforms_SoftwareDataSet.RejectChanges()
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

            End If
        End With

        With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "TROUSERS_DARK_BLUE_MAN")

            .EndCurrentEdit()
            If Uniforms_SoftwareDataSet.HasChanges Then
                Try
                    If MsgBox("Record has changer!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
                        Me.TROUSERS_DARK_BLUE_MANTableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges())
                        Uniforms_SoftwareDataSet.AcceptChanges()

                    Else
                        Uniforms_SoftwareDataSet.RejectChanges()
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

            End If
        End With

        With Me.BindingContext(Me.Uniforms_SoftwareDataSet, "WHITE_SHIRT_SHORT_SLEEVE")

            .EndCurrentEdit()
            If Uniforms_SoftwareDataSet.HasChanges Then
                Try
                    If MsgBox("Record has changer!" & vbCrLf & "Save changes?", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.DefaultButton2) = MsgBoxResult.Yes Then
                        Me.WHITE_SHIRT_SHORT_SLEEVETableAdapter.Update(Uniforms_SoftwareDataSet.GetChanges())
                        Uniforms_SoftwareDataSet.AcceptChanges()

                    Else
                        Uniforms_SoftwareDataSet.RejectChanges()
                    End If
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

            End If
        End With

    End Sub



End Class

Thank you.

[dunfiddlin]

You have a different table for every item?

[MetalInquisitor]

That's like having a wallet for each cent.

[Blue_Wings]

I have this tables because in the case of the table BLUE_BELT_MEN, OVERCOAT_MAN, WHITE_SHIRT_LONG_SLEEVE, WHITE_SHIRT_SHORT_SLEEVE, TROUSERS_DARK_BLUE_MAN, BLAZER_DARK_BLUE_FO and BLAZER_DARK_BLUE_COM can have diferente sizes like: S, M, L, XL, XXL and XXXL.

The single items like HIGH_VISIBILITY_VEST, PILOT_WING, TIE_MAN, STRIPES_COM and STRIPES_FO you are right that could in in only in one table

But about the problem to save all of the textbox at the same time, does anyone can help me?
Thanks

[dunfiddlin]

because

Still doesn't make any sense! One table is more than sufficient.

But about the problem to save all of the textbox at the same time, does anyone can help me?

No, is the honest answer. You can only update the table that matches the binding. By multiplying the bindings/tables out of all proportion you've made it all but impossible to connect the tables with the changes in any kind of consistent way.