在一个函数 vb.net 中初始化多个下拉列表

Question

我有初始化下拉列表的函数

    Dim myCommand As OracleCommand = Nothing
    myCommand = _myConnection.CreateCommand()
    myCommand.CommandType = CommandType.Text
    myCommand.CommandText =
        "text"
    ddlStandort.DataSource = myCommand.ExecuteReader()
    ddlStandort.DataTextField = "value"
    ddlStandort.DataValueField = "value"
    ddlStandort.DataBind()

现在我还有四个要初始化的下拉列表。如何在不重复代码四次的情况下执行此操作？

Answer 1

假设每个 DDL 都需要填充完全相同的数据，最简单的方法是将该代码转换为接受 DropDownList 作为参数的方法，然后为每个下拉列表调用该方法。

Private Sub PopulateDDL(byref theDDL as DropDownList)
    Dim myCommand As OracleCommand = Nothing
    myCommand = _myConnection.CreateCommand()
    myCommand.CommandType = CommandType.Text
    myCommand.CommandText = "text"
    theDDL.DataSource = myCommand.ExecuteReader()
    theDDL.DataTextField = "value"
    theDDL.DataValueField = "value"
    theDDL.DataBind()
End Sub

拨打类似电话

PopulateDDL(ddlStandort)
PopulateDDL(ddlTwo)
PopulateDDL(ddlThree)
...