從函數或方法加載的Dropdownlist

Question

我有一個我經常使用的dropdownlist。 我寫了一個方法來加載這個下拉菜單。 雖然當我調用該方法時，只傳遞了該項目的文本部分。 這是方法

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等於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屬性）