Winfrom 子視窗傳值給父視窗

直接看Code囉

先在Form1建立一個Untyped dataset並取名為DS1及Textbox取名為TextBox1
Public Class Form1
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim sForm2 As New Form2()
        sForm2.ShowDialog(Me)
        DataGridView1.DataSource = DS1.Tables(0)
    End Sub
End Class


Public Class Form2
    Dim db As New VivaDataClassesDataContext()
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim frm1 As Form1 = DirectCast(Me.Owner, Form1)
        DirectCast(frm1.Controls("textBox1"), TextBox).Text = TextBox1.Text
        Dim query = From p In db.Product_Daily_Report_Comment _
                    Select p
        frm1.DS1.Tables(0).Load(New DataTableReader(query.ToDataTable()))
        Me.Close()
    End Sub
End Class