Asp.net 我们如何访问form3中的form2列表框（lb1）

导入System.Windows.Forms.ListBox

公开课表格2

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)    Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim mf1 As New Form3()
    Form3.Visible = True
    Me.Hide()

End Sub

导入System.Data.OleDb

公开课表格3

Private Class dataaccess
    Public Shared Function getconnection() As OleDbConnection
        'string constr = @"Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\database\Database2007.accdb";
        Dim constr1 As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Suman\Desktop\vs ws\vb\project_sample1\Database1.accdb"
        Return New OleDbConnection(constr1)
    End Function
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim con As OleDbConnection = dataaccess.getconnection()
    Dim query As String = "SELECT * FROM Burgers"
    Dim cmd As New OleDbCommand(query, con)
    Dim da As New OleDbDataAdapter(cmd)
    Dim ds As New DataSet()
    ' Dim x As Integer
    da.Fill(ds)

    **lb1**.Items.Add(ds.Tables(0).Rows(0).ItemArray(0).ToString())

End Sub

---

我想将表单3数据存储到lb1列表框中，该列表框在表单2中声明。您可以将对该特定列表框的引用或整个表单2传递给表单3。简单的方法是将其写入表单的构造函数中

表格3：

private _TargetListBox as ListBox

public sub New(ByRef TargetListBox as ListBox)
    _TargetListBox = TargetListBox
end sub 


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim con As OleDbConnection = dataaccess.getconnection()
    Dim query As String = "SELECT * FROM Burgers"
    Dim cmd As New OleDbCommand(query, con)
    Dim da As New OleDbDataAdapter(cmd)
    Dim ds As New DataSet()
    ' Dim x As Integer
    da.Fill(ds)
    _TargetListBox.Items.Add(ds.Tables(0).Rows(0).ItemArray(0).ToString())
End Sub

表格2：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim mf1 As New Form3(Me.lb1)
    mf1.Visible = True
    Me.Hide()

---

End Sub

两个表单是否同时处于活动状态？问题的VBScript部分是什么。你可以通过编写代码来显示它吗？我无法创建form 2@zohar Peled的实例，但它抛出了一个错误，说明创建方法存根@zohar Peled的过程中出现了什么异常，以及在什么代码行中得到了它？在Form2的第二行，我得到这个错误“lb1不是'project_sample1.Form2'的成员”@zohar peledwell，你是说它是Form2上的一个列表框的人。。。也许它叫另一个名字？我编写的代码中的Me.lb1引用了form2上的列表框。如果列表框未命名为lb1，则应将其更改为真实名称。