How to sort dropdownlist Currency List item that not related with database?

Question

How to acecending sort the dropdownlist in currency list. Is need to 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

Here the output :

Anything that you can enumerate over in a `For Each` loop, you can call `OrderBy` on. — jmcilhinney, Nov 01 '16 at 01:51

VDWWD · Accepted Answer · 2016-11-01T12:30:37.413

Because you need a subset of data you need to build a list of currency symbols and sort that.

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

How to sort dropdownlist Currency List item that not related with database?

1 Answers1