Windows Forms

Private Sub Frm_EditApplication_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'ShowApplication.tbl_Application' table. You can move, or remove it, as needed.
        Me.Tbl_ApplicationTableAdapter.FillEditApp(Me.ShowApplication.tbl_Application)

    End Sub

    Private Sub Frm_EditApplicationDetails_Click(ByVal Sender As Object, ByVal e As System.EventArgs) _
    Handles Btn_App_Support.Click

        Dim SelectedRowVeiw As Data.DataRowView
        Dim SelectedRow As XXX_GC_IT_SIPDataSet.tbl_ApplicationRow
        SelectedRowVeiw = CType(Tbl_ApplicationBindingSource.Current, System.Data.DataRowView)
        SelectedRow = CType(SelectedRowVeiw.Row, XXX_GC_IT_SIPDataSet.tbl_ApplicationRow)

        Dim OrdersForm As New Frm_LinkAppSupport
        OrdersForm.LoadOrders(SelectedRow.ApplicationID)
        OrdersForm.Show()
    End Sub

Friend Sub LoadOrders(ByVal ApplicationID As String)
        'TODO: This line of code loads data into the 'XXX_GC_IT_SIPDataSet.tbl_link_application_support_location' table. You can move, or remove it, as needed.
        Tbl_link_application_support_locationTableAdapter.FillByShowAppSupport(XXX_GC_IT_SIPDataSet.tbl_link_application_support_location, ApplicationID)

    End Sub