从组合框中选择值后如何刷新表单

Question

我想知道在从组合框中选择另一个值后是否可以刷新当前的窗体，以便在其他几个文本框中显示该项目的详细信息？

所以我的桌子看起来像 表名：程序 程序 ID 程序名称 程序描述 1 T1 描述1

这是我使用 atm 的代码

Dim connection As New SqlClient.SqlConnection
    connection.ConnectionString = "pathway"
    Dim dr As SqlDataReader
    Dim prognamedesc As String
    Dim filetypetxt As String

    Dim prognamecombo As String
    Dim filetypecombo1 As String
    Dim command As New SqlCommand
    Dim querycommand As New SqlCommand
    connection.Open()
    'THIS SECTION LOADS DATA FROM THE TABLES'
    Try

        command.Connection = connection
        command.CommandType = CommandType.Text
        command.CommandText = "select program_name,filetype from program order by program_name; select * from filetype"
        querycommand.Connection = connection
        querycommand.CommandType = CommandType.Text
        querycommand.CommandText = "select program_name,program_desc , filetype from program where program_name like" & FiletypeComboBox1.SelectedItem & ""

        dr = command.ExecuteReader

        While dr.Read()

            prognamecombo = dr(0)
            Program_nameComboBox.Items.Add(prognamecombo)

        End While

        dr.NextResult()
        While dr.Read()
            filetypecombo1 = dr(0)
            FiletypeComboBox1.Items.Add(filetypecombo1)
            FiletypeComboBox1.SelectedItem = filetypecombo1
        End While
        dr.NextResult()
        While dr.Read()
            filetypetxt = dr(0)
            FiletypeLabel1.Text = filetypetxt

        End While
        dr.NextResult()
        While dr.Read()
            prognamedesc = dr(0)
            Program_descTextBox.Text = prognamedesc
        End While

    Catch ex As Exception
        MsgBox(ex.Message)
    End Try





    connection.Close()

我想知道使用当前代码是否可行？

Answer 1

要实现这一点，您必须做两件事，首先将所有代码放在一个方法中，然后将其命名为 RefreshForm() 之类的名称

public void RefreshForm()
{
  // your code and binding goes here
}

第二步是在组合框上使用选定的索引更改事件，您只需调用包含所有绑定代码的方法。