从函数或方法加载的下拉列表

Question

我有一个我经常使用的下拉列表。 我写了一个方法来加载这个下拉列表。 虽然当我调用该方法时，只传递了项目的文本部分。 方法是这样的

Public Shared Function ddlLoadResumes() As DropDownList
    Dim connString As String = ConfigurationManager.ConnectionStrings("LocalSqlServer").ConnectionString
    Dim conn As SqlConnection = New SqlConnection(connString)
    Dim ddSelectResumeList As New DropDownList
    Dim dtResumes As New DataTable()

    Dim comm As SqlCommand = New SqlCommand("usr_SelectResumeList", conn)
    comm.CommandType = CommandType.StoredProcedure
    comm.Parameters.Add("@UserName", SqlDbType.VarChar, 50).Value = Membership.GetUser().UserName

    Try
        Dim daResumes As New SqlDataAdapter(comm)
        conn.Open()
        daResumes.Fill(dtResumes)

        ddSelectResumeList.DataSource = dtResumes
        ddSelectResumeList.DataTextField = "ResumeName"
        ddSelectResumeList.DataValueField = "Res_ID"
        ddSelectResumeList.DataBind()


        ' Handle the error
    Catch ex As Exception
    Finally
        conn.Close()

    End Try


    Return ddSelectResumeList

End Function

这就是我的称呼

ddSelectResume.DataSource = MailClass.ddlLoadResumes.Items
ddSelectResume.DataBind()

Dim ltitem As ListItem
        For Each ltitem In ddSelectResume.Items
            Response.Write(ltitem.Value + "-----" + ltitem.Text)
        Next   returns only the text part

我需要 DataTextField 和 DataValueField。 提前谢谢你

Answer 1

这似乎是一种奇怪的方法。解决您的问题的一件事是将 ddSelectResume 设置为等于您的 Function 返回的 DropDownList 对象：

ddSelectResume = MailClass.ddlLoadResumes

Dim ltitem As ListItem
        For Each ltitem In ddSelectResume.Items
            Response.Write(ltitem.Value + "-----" + ltitem.Text)
        Next

虽然我认为更好的方法是让“ddlLoadResumes 返回 DataTable (dtResumes)，并将其设置为 ddSelectResumes 的数据源（您仍然必须设置 DataTextField 和 DataValueField 属性）。