如何将supplierForm文本框数据传递到inventoryForm下拉框？问题排查

我需要把supplierForm里名为[name]的文本框数据传递到inventoryForm里名为[supplier]的下拉框。在supplierForm的文本框添加新供应商后，无需重新加载项目，新数据要立刻显示在inventoryForm的下拉框里。这个功能之前正常工作，现在只能生效一次，后续新增的内容都不显示，不知道哪里出问题了。

相关界面截图 #

• inventoryForm目标下拉框：
  
• supplierForm输入供应商名称的文本框：
  

现有代码（supplierForm中） #

Private Sub updateSupplier()
    Dim sp As Supplier = New Supplier()
    sp.txtName.Text = ComboBox4.Text
    sp.Show()
End Sub

Private Sub supplier_list()
    MysqlConn = New MySqlConnection
    MysqlConn.ConnectionString = "server=localhost;userid=root;password=root;database=golden_star"
    Dim READER As MySqlDataReader

    Try
        MysqlConn.Open()
        Dim Query As String
        Query = "select supplier from golden_star.supplier"

        Command = New MySqlCommand(Query, MysqlConn)
        READER = Command.ExecuteReader
        ComboBox4.Items.Clear()

        While READER.Read()
            ComboBox4.Items.Add(READER("supplier"))
            updateSupplier()
        End While
        MysqlConn.Close()

    Catch ex As Exception

    End Try

End Sub

我已将supplier_list()添加到Form_Load事件中，请问哪里出错了？

核心问题点 #

1. updateSupplier()逻辑错误
   每次调用这个方法都会新建一个Supplier窗体实例，你更新的是全新窗体的文本框，而非已经打开的inventoryForm实例，这就是后续操作无效的根本原因。

2. 循环内重复调用更新方法
   在读取数据库的循环里每次都调用updateSupplier()，会导致每读一条数据就新建一个窗体，完全冗余，且会干扰正常的数据同步逻辑。

3. 无异常反馈
   Catch块为空，数据库连接、查询出错时无法获取报错信息，排查问题难度极大。

修复步骤 #

1. 修改updateSupplier()，操作已有窗体实例

Private Sub updateSupplier()
    ' 找到已打开的inventoryForm实例
    Dim invForm As inventoryForm = Application.OpenForms.OfType(Of inventoryForm)().FirstOrDefault()
    If invForm IsNot Nothing Then
        ' 清空目标下拉框并同步当前ComboBox4的内容
        invForm.supplierComboBox.Items.Clear()
        For Each item In ComboBox4.Items
            invForm.supplierComboBox.Items.Add(item)
        Next
    End If
End Sub

2. 调整supplier_list()的更新时机

移除循环内的updateSupplier()，只在下拉框加载完成后调用一次：

Private Sub supplier_list()
    MysqlConn = New MySqlConnection
    MysqlConn.ConnectionString = "server=localhost;userid=root;password=root;database=golden_star"
    Dim READER As MySqlDataReader

    Try
        MysqlConn.Open()
        Dim Query As String = "select supplier from golden_star.supplier"
        Command = New MySqlCommand(Query, MysqlConn)
        READER = Command.ExecuteReader
        ComboBox4.Items.Clear()

        While READER.Read()
            ComboBox4.Items.Add(READER("supplier").ToString())
        End While
        MysqlConn.Close()
        ' 下拉框加载完成后同步到inventoryForm
        updateSupplier()

    Catch ex As Exception
        MsgBox("加载供应商列表出错：" & ex.Message)
    End Try
End Sub

3. 在新增供应商后触发同步

不要只在Form_Load时调用supplier_list()，要在保存新供应商到数据库成功后调用，比如在保存按钮的点击事件中添加：

Private Sub btnSaveSupplier_Click(sender As Object, e As EventArgs) Handles btnSaveSupplier.Click
    ' 此处添加你保存新供应商到数据库的代码
    ' 保存成功后刷新并同步
    supplier_list()
End Sub

额外优化：单条新增直接同步（无需全量查询）

如果只是新增单个供应商，无需重新查询整个数据库，直接添加到两个下拉框即可，效率更高：

' 保存新供应商成功后执行
Dim newSupplier As String = txtName.Text ' 替换为你的输入文本框名称
' 添加到当前窗体的ComboBox4
ComboBox4.Items.Add(newSupplier)
' 同步到inventoryForm的下拉框
Dim invForm As inventoryForm = Application.OpenForms.OfType(Of inventoryForm)().FirstOrDefault()
If invForm IsNot Nothing Then
    invForm.supplierComboBox.Items.Add(newSupplier)
End If

内容的提问来源于stack exchange，提问作者Salwa Hamim