Question

我想调用Usercontrol中form的方法，方法（showlistbox）是填充列表框中的产品，当用户更新或删除我要调用方法的产品时，它会更新包含usercontrol。

中产品的列表框

我有2个表单主表单，其中包含＆＃39; usercontrol＆＃39; ＆＃39; usercontrol＆＃39;有列表框和其他控件，我使用名为＆＃39; showlistbox＆＃39;在列表框中显示产品，如果用户双击列表框中的任何产品，这将打开包含产品详细信息的新表单，因此如果用户删除或更新产品，我希望列表框中的“用户控件”＃39;也可以通过调用＆＃39;来更新或刷新showlistbox＆＃39;方法

我试过这个，但它向我显示了这个错误：the connectionstring property has not been initialized

这是代码：

dim m_product as new products
m_product.showlistbox()

这是showlistbox方法：

Public Sub showlistbox()
    Try
        'فحص الاتصال بقاعدة البيانات
        If SQL.conn.State = ConnectionState.Open Then
            SQL.conn.Close()
        End If
        SQL.conn.Open()
        Dim dt As New DataTable
        Dim ds As New DataSet
        ds.Tables.Add(dt)
        Dim da As New SqlDataAdapter("select pname from products where not esection= N'archive' order by date DESC", SQL.conn)
        da.Fill(dt)
        Dim myRow As DataRow
        For Each myRow In dt.Rows
            ListBox1.Items.Add(myRow.Item(0)).ToString()
        Next
        SQL.conn.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    End Try
End Sub

但它无法正常工作，我该怎么做？

Answer 1

根据它的信息和声音，您尝试从表单2调用表单1上的私有成员。尝试在表单1上创建一个公共子，以调用包含与您需要的对象相等的变量。< / p>

Public Sub frm1LstBox()
Dim lstbx as liistbox = m_product
End Sub

从另一个表单调用Usercontrol方法

1 个答案: