dropdownlist通貨のソート方法データベースと関係のないリスト項目ですか？

Question

通貨リストでドロップダウンリストをどのようにソートするか。 datatable/dataviewへのニーズはありますか？ここで

For Each cultureInfo__1 As CultureInfo In CultureInfo.GetCultures(CultureTypes.SpecificCultures) 
     Dim regionInfo As New RegionInfo(cultureInfo__1.LCID) 
     If DrpCurrency.Items.FindByValue(regionInfo.ISOCurrencySymbol) Is Nothing Then 
      DrpCurrency.Items.Add(New ListItem(regionInfo.ISOCurrencySymbol + "" + regionInfo.CurrencySymbol)) 

     End If 
    Next 

出力：あなたは通貨記号のリストを作成し、それをソートする必要があるデータのサブセットを必要とするので

Answer 1

。

Dim currencyList As List(Of String) = New List(Of String) 

For Each cultureInfo As CultureInfo In CultureInfo.GetCultures(CultureTypes.SpecificCultures) 
    Dim regionInfo As RegionInfo = New RegionInfo(cultureInfo.LCID) 
    If Not currencyList.Contains(regionInfo.ISOCurrencySymbol) Then 
     currencyList.Add(regionInfo.ISOCurrencySymbol) 
    End If   
Next 

DropDownList1.DataSource = currencyList.OrderBy(Function(k) k) 
DropDownList1.DataBind