Solved

Fill Dataset from another form

Posted on 2008-06-24
3
235 Views
Last Modified: 2008-06-25
Hi Experts,

VS 2008,SQL 2005.

I have a form with a split container. The first panel has a tree control.On the 2nd panel I fill with a form at run time , If the first node is  clicked I load a customer form in the panel. If the 2nd node is clicked I load a Job form.I also have it check to see if the form that is needed on the 2nd panel is already loaded,if so I want to just update the data. I am trying to refill the dataset on the form in the 2nd panel but the following code id not working.

frmSubCustomer.FillCustomerDetail(SelectedCustomerID)    This is a sub on the frmSubCustomer


this is the code:

    Private Sub FillsubCustomerForm()
        Dim SubFrm As New frmSubCustomer

        SelectedCustomerID = Me.TreeCustomer.SelectedNode.Tag

        If Me.SplitContainer1.Panel2.Controls.Count > 0 Then
            If Me.SplitContainer1.Panel2.Controls(0).Name = "frmSubCustomer" Then
                frmSubCustomer.FillCustomerDetail(SelectedCustomerID)


            Else

                Me.SplitContainer1.Panel2.Controls.Clear()
                With SubFrm

                    .CurrentCustomerID = SelectedCustomerID
                    .TopLevel = False
                    .Dock = DockStyle.Fill
                    .WindowState = FormWindowState.Maximized
                    .Parent = Me
                    Me.SplitContainer1.Panel2.Controls.Add(SubFrm)
                    .Show()

                End With

            End If


Any help would be great. If you can think of a better way of doing this I wold like to see it as I am just starting to develop this App

Thank You
John
0
Comment
Question by:DjJohnny
3 Comments
 
LVL 39

Accepted Solution

by:
appari earned 500 total points
ID: 21861960
try this

 Private Sub FillsubCustomerForm()
        Dim SubFrm As object

        SelectedCustomerID = Me.TreeCustomer.SelectedNode.Tag

        If Me.SplitContainer1.Panel2.Controls.Count > 0 Then
            If Me.SplitContainer1.Panel2.Controls(0).Name = "frmSubCustomer" Then
            SubFrm = Me.SplitContainer1.Panel2.Controls(0)
                ctype(SubFrm, frmSubCustomer).FillCustomerDetail(SelectedCustomerID)


            Else

                Me.SplitContainer1.Panel2.Controls.Clear()
                With SubFrm

                    .CurrentCustomerID = SelectedCustomerID
                    .TopLevel = False
                    .Dock = DockStyle.Fill
                    .WindowState = FormWindowState.Maximized
                    .Parent = Me
                    Me.SplitContainer1.Panel2.Controls.Add(SubFrm)
                    .Show()

                End With

            End If

0
 
LVL 18

Expert Comment

by:philipjonathan
ID: 21862235
How far have you got? Are you handling the Tree's clicked event? You can handle the Tree's clicked event. If a click is detected, check if it's the 1st node or the 2nd one. Then check if the associated form is already loaded. If so, just refresh the data
0
 

Author Comment

by:DjJohnny
ID: 21864100
Thank You  appari and philipjonathan,

appari code worked. I see now that I need to create an object that I set as the form in the panel2. I was just trying to get to it directly.

John
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Introduction When many people think of the WebBrowser (http://msdn.microsoft.com/en-us/library/2te2y1x6%28v=VS.85%29.aspx) control, they immediately think of a control which allows the viewing and navigation of web pages. While this is true, it's a…
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Excel styles will make formatting consistent and let you apply and change formatting faster. In this tutorial, you'll learn how to use Excel's built-in styles, how to modify styles, and how to create your own. You'll also learn how to use your custo…
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

747 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

13 Experts available now in Live!

Get 1:1 Help Now