Stop clearing the controls while form load

R

rajhansh

Member
Joined
Oct 8, 2008
Messages
8
Programming Experience
3-5
Hi,

I am facing a very peculiar problem. Below is the details of the problem.

I have a main form in which I have a button called "Add Vendor". On click on this button you can select a vendor from a list and then that vendor is added in a datagrid control in the main form.

Main form have another button called "Add Position". On clicking this you can choose a item fromm a list and then that is added to another datagrid control on the main form.

PROBLEM :confused:
=======

Now the problem is that when I load Vendor and then load Position the data populated in first datagrid(for Vendors) control is cleared.

Same is happening when I first load position and then try to load Vendors, the data is cleared for position.

-----

Anyone please help me as I am stuck in middle of the a application.
 
Sort by date Sort by votes
code for loading vendor details
---------------------------

VB.NET: 
Public Class purchase_order_frm
    Public dspoh As DataSet
    Friend MainForm As main_frm
    Friend myds As DataSet

    Private Sub cmd_choose_vendor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_choose_vendor.Click

        choose_vendor_frm.Show()
        choose_vendor_frm.BringToFront()
    End Sub

    Public Sub loadData(ByVal ds As DataSet)
        dspoh = ds


        Me.txt_f_name.DataBindings.Add(New Binding("Text", dspoh, "POHeader.firstname"))
        Me.txt_l_name.DataBindings.Add(New Binding("Text", dspoh, "POHeader.lastName"))

        Me.txt_ba_street.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingStreet"))
        Me.txt_ba_city.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingCity"))
        Me.txt_ba_state.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingState"))
        Me.txt_ba_zip.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingZip"))
        Me.txt_ba_country.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingCountry"))

        Me.t_txt_sa_street.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipStreet"))
        Me.t_txt_sa_city.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipCity"))
        Me.t_txt_sa_state.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipState"))
        Me.t_txt_sa_zip.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipZip"))
        Me.t_txt_sa_country.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipCountry"))

        Me.txt_terms.DataBindings.Add(New Binding("Text", dspoh, "POHeader.terms"))
        Me.dt_created.DataBindings.Add(New Binding("Text", dspoh, "POHeader.createDate"))
        Me.dt_pay.DataBindings.Add(New Binding("Text", dspoh, "POHeader.payDate"))
        Me.dt_due.DataBindings.Add(New Binding("Text", dspoh, "POHeader.dueDate"))
        Me.dt_rec.DataBindings.Add(New Binding("Text", dspoh, "POHeader.receivedDate"))

        Me.txt_amt_paid.DataBindings.Add(New Binding("Text", dspoh, "POHeader.amountPaid"))
        Me.txt_pay_mode.DataBindings.Add(New Binding("Text", dspoh, "POHeader.paymentMethod"))
        Me.txt_ship_info.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shippingNotes"))
        Me.txt_notes.DataBindings.Add(New Binding("Text", dspoh, "POHeader.generalNotes"))

        Me.txt_user.DataBindings.Add(New Binding("Text", dspoh, "POHeader.user_name"))

    End Sub
    Public Sub show_vendor_details(ByVal dr As DataRowView)

        Me.txt_f_name.Text = CType(dr.Item("firstname"), String)
        Me.txt_l_name.Text = CType(dr.Item("lastName"), String)

        Me.txt_ba_street.Text = CType(dr.Item("billingStreet"), String)
        Me.txt_ba_city.Text = CType(dr.Item("billingCity"), String)
        Me.txt_ba_state.Text = CType(dr.Item("billingState"), String)
        Me.txt_ba_zip.Text = CType(dr.Item("billingZip"), String)
        Me.txt_ba_country.Text = CType(dr.Item("billingCountry"), String)

        Me.txt_sa_street.Text = CType(dr.Item("shippingStreet"), String)
        Me.txt_sa_city.Text = CType(dr.Item("shippingCity"), String)
        Me.txt_sa_state.Text = CType(dr.Item("shippingState"), String)
        Me.txt_sa_zip.Text = CType(dr.Item("shippingZip"), String)
        Me.txt_sa_country.Text = CType(dr.Item("shippingCountry"), String)

    End Sub

    Private Sub cmd_new_position_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_new_position.Click
        'Me.Hide()
        position_frm.Show()
        position_frm.BringToFront()
    End Sub


    Private Sub cmd_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_save.Click
        'save the PO Header information
        Dim uname() As String
        uname = Split(main_frm.lbl_user.Text, ":")

        txt_user.Text = uname(1)
        Me.t_txt_sa_street.Text = Me.txt_sa_street.Text
        Me.t_txt_sa_city.Text = Me.txt_sa_city.Text
        Me.t_txt_sa_state.Text = Me.txt_sa_state.Text
        Me.t_txt_sa_zip.Text = Me.txt_sa_zip.Text
        Me.t_txt_sa_country.Text = Me.txt_sa_country.Text

        Me.dt_created.Text = Me.t_dt_created.Value.ToString
        Me.dt_pay.Text = Me.t_dt_pay.Value.ToString
        Me.dt_due.Text = Me.t_dt_due.Value.ToString
        Me.dt_rec.Text = Me.t_dt_rec.Value.ToString

        'BindingContext(dspoh, "POHeader").EndCurrentEdit()
        'RAC6.Savepoheader(dspoh)

        'save the PO Position information
        Dim cm As CurrencyManager

        cm = CType(BindingContext(myds, "POposition"), CurrencyManager)
        Dim dr As DataRow = CType(cm.Current, DataRowView).Row

        'save poposition details one by one
        For i = 0 To cm.Count - 1
            cm.Position = i
            dr = CType(cm.Current, DataRowView).Row
            MsgBox(CType(dr.Item("qty"), Integer))

            t_itemName.DataBindings.Clear()
            t_qty.DataBindings.Clear()
            t_price.DataBindings.Clear()
            t_vintage.DataBindings.Clear()
            t_bottleSize.DataBindings.Clear()

            Dim dss As DataSet = RAC6.getnewpoposition

            Me.t_itemName.DataBindings.Add(New Binding("Text", dss, "POposition.itemName"))
            Me.t_qty.DataBindings.Add(New Binding("Text", dss, "POposition.qty"))
            Me.t_price.DataBindings.Add(New Binding("Text", dss, "POposition.price"))
            Me.t_vintage.DataBindings.Add(New Binding("Text", dss, "POposition.vintage"))
            Me.t_bottleSize.DataBindings.Add(New Binding("Text", dss, "POposition.bottleSize"))
            Me.t_itemFk.DataBindings.Add(New Binding("Text", dss, "POposition.itemFk"))
            Me.t_fkHeader.DataBindings.Add(New Binding("Text", dss, "POposition.fkHeader"))

            t_fkHeader.Text = 2
            t_itemName.Text = (CType(dr.Item("itemName"), String))
            t_qty.Text = (CType(dr.Item("qty"), Integer))
            t_price.Text = (CType(dr.Item("price"), Long))
            t_vintage.Text = (CType(dr.Item("vintage"), Integer))
            t_bottleSize.Text = (CType(dr.Item("bottleSize"), String))

            BindingContext(dss, "POposition").EndCurrentEdit()
            RAC6.Savepoposition(dss)

        Next

    End Sub

    Private Sub t_txt_sa_country_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_sa_country.TextChanged

    End Sub

    Private Sub cmd_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_cancel.Click
        Me.Hide()
        main_frm.Show()
        main_frm.BringToFront()
    End Sub

    Private Sub purchase_order_frm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Hide()
        main_frm.Show()
        main_frm.BringToFront()
    End Sub

End Class



Code for loading position details
========================
Public Class purchase_order_frm
    Public dspoh As DataSet
    Friend MainForm As main_frm
    Friend myds As DataSet

    Private Sub cmd_choose_vendor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_choose_vendor.Click

        choose_vendor_frm.Show()
        choose_vendor_frm.BringToFront()
    End Sub

    Public Sub loadData(ByVal ds As DataSet)
        dspoh = ds


        Me.txt_f_name.DataBindings.Add(New Binding("Text", dspoh, "POHeader.firstname"))
        Me.txt_l_name.DataBindings.Add(New Binding("Text", dspoh, "POHeader.lastName"))

        Me.txt_ba_street.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingStreet"))
        Me.txt_ba_city.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingCity"))
        Me.txt_ba_state.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingState"))
        Me.txt_ba_zip.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingZip"))
        Me.txt_ba_country.DataBindings.Add(New Binding("Text", dspoh, "POHeader.billingCountry"))

        Me.t_txt_sa_street.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipStreet"))
        Me.t_txt_sa_city.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipCity"))
        Me.t_txt_sa_state.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipState"))
        Me.t_txt_sa_zip.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipZip"))
        Me.t_txt_sa_country.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shipCountry"))

        Me.txt_terms.DataBindings.Add(New Binding("Text", dspoh, "POHeader.terms"))
        Me.dt_created.DataBindings.Add(New Binding("Text", dspoh, "POHeader.createDate"))
        Me.dt_pay.DataBindings.Add(New Binding("Text", dspoh, "POHeader.payDate"))
        Me.dt_due.DataBindings.Add(New Binding("Text", dspoh, "POHeader.dueDate"))
        Me.dt_rec.DataBindings.Add(New Binding("Text", dspoh, "POHeader.receivedDate"))

        Me.txt_amt_paid.DataBindings.Add(New Binding("Text", dspoh, "POHeader.amountPaid"))
        Me.txt_pay_mode.DataBindings.Add(New Binding("Text", dspoh, "POHeader.paymentMethod"))
        Me.txt_ship_info.DataBindings.Add(New Binding("Text", dspoh, "POHeader.shippingNotes"))
        Me.txt_notes.DataBindings.Add(New Binding("Text", dspoh, "POHeader.generalNotes"))

        Me.txt_user.DataBindings.Add(New Binding("Text", dspoh, "POHeader.user_name"))

    End Sub
    Public Sub show_vendor_details(ByVal dr As DataRowView)

        Me.txt_f_name.Text = CType(dr.Item("firstname"), String)
        Me.txt_l_name.Text = CType(dr.Item("lastName"), String)

        Me.txt_ba_street.Text = CType(dr.Item("billingStreet"), String)
        Me.txt_ba_city.Text = CType(dr.Item("billingCity"), String)
        Me.txt_ba_state.Text = CType(dr.Item("billingState"), String)
        Me.txt_ba_zip.Text = CType(dr.Item("billingZip"), String)
        Me.txt_ba_country.Text = CType(dr.Item("billingCountry"), String)

        Me.txt_sa_street.Text = CType(dr.Item("shippingStreet"), String)
        Me.txt_sa_city.Text = CType(dr.Item("shippingCity"), String)
        Me.txt_sa_state.Text = CType(dr.Item("shippingState"), String)
        Me.txt_sa_zip.Text = CType(dr.Item("shippingZip"), String)
        Me.txt_sa_country.Text = CType(dr.Item("shippingCountry"), String)

    End Sub

    Private Sub cmd_new_position_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_new_position.Click
        'Me.Hide()
        position_frm.Show()
        position_frm.BringToFront()
    End Sub


    Private Sub cmd_save_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_save.Click
        'save the PO Header information
        Dim uname() As String
        uname = Split(main_frm.lbl_user.Text, ":")

        txt_user.Text = uname(1)
        Me.t_txt_sa_street.Text = Me.txt_sa_street.Text
        Me.t_txt_sa_city.Text = Me.txt_sa_city.Text
        Me.t_txt_sa_state.Text = Me.txt_sa_state.Text
        Me.t_txt_sa_zip.Text = Me.txt_sa_zip.Text
        Me.t_txt_sa_country.Text = Me.txt_sa_country.Text

        Me.dt_created.Text = Me.t_dt_created.Value.ToString
        Me.dt_pay.Text = Me.t_dt_pay.Value.ToString
        Me.dt_due.Text = Me.t_dt_due.Value.ToString
        Me.dt_rec.Text = Me.t_dt_rec.Value.ToString

        'BindingContext(dspoh, "POHeader").EndCurrentEdit()
        'RAC6.Savepoheader(dspoh)

        'save the PO Position information
        Dim cm As CurrencyManager

        cm = CType(BindingContext(myds, "POposition"), CurrencyManager)
        Dim dr As DataRow = CType(cm.Current, DataRowView).Row

        'save poposition details one by one
        For i = 0 To cm.Count - 1
            cm.Position = i
            dr = CType(cm.Current, DataRowView).Row
            MsgBox(CType(dr.Item("qty"), Integer))

            t_itemName.DataBindings.Clear()
            t_qty.DataBindings.Clear()
            t_price.DataBindings.Clear()
            t_vintage.DataBindings.Clear()
            t_bottleSize.DataBindings.Clear()

            Dim dss As DataSet = RAC6.getnewpoposition

            Me.t_itemName.DataBindings.Add(New Binding("Text", dss, "POposition.itemName"))
            Me.t_qty.DataBindings.Add(New Binding("Text", dss, "POposition.qty"))
            Me.t_price.DataBindings.Add(New Binding("Text", dss, "POposition.price"))
            Me.t_vintage.DataBindings.Add(New Binding("Text", dss, "POposition.vintage"))
            Me.t_bottleSize.DataBindings.Add(New Binding("Text", dss, "POposition.bottleSize"))
            Me.t_itemFk.DataBindings.Add(New Binding("Text", dss, "POposition.itemFk"))
            Me.t_fkHeader.DataBindings.Add(New Binding("Text", dss, "POposition.fkHeader"))

            t_fkHeader.Text = 2
            t_itemName.Text = (CType(dr.Item("itemName"), String))
            t_qty.Text = (CType(dr.Item("qty"), Integer))
            t_price.Text = (CType(dr.Item("price"), Long))
            t_vintage.Text = (CType(dr.Item("vintage"), Integer))
            t_bottleSize.Text = (CType(dr.Item("bottleSize"), String))

            BindingContext(dss, "POposition").EndCurrentEdit()
            RAC6.Savepoposition(dss)

        Next

    End Sub

    Private Sub t_txt_sa_country_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txt_sa_country.TextChanged

    End Sub

    Private Sub cmd_cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmd_cancel.Click
        Me.Hide()
        main_frm.Show()
        main_frm.BringToFront()
    End Sub

    Private Sub purchase_order_frm_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        Me.Hide()
        main_frm.Show()
        main_frm.BringToFront()
    End Sub

End Class
 
Last edited by a moderator:
Upvote 0 Downvote

Similar threads

manny cash
  • Question
Timer control is not visible on my main form VB.NET 2017 - 2022
Replies
1
Views
397
jmcilhinney
jmcilhinney
RobertAlanGustafsonII
  • Question
How do I provide a foolproof auto-dropdown for a combo box receiving the focus?
Replies
5
Views
2K
JohnH
JohnH
remusrigo
  • Question
Resolved screensaver.scr question
Replies
1
Views
182
remusrigo
remusrigo
Rythorian
  • Question
Motion Detection (This application I've created is free to anyone to use)
Replies
0
Views
612
Rythorian
Rythorian
G
  • Question
TreeView BeforeSelect event
Replies
6
Views
2K
Rythorian
Rythorian

Share this page

Latest posts

Back
Top