Reputation: 208
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 :
Upvotes: 0
Views: 138
Reputation: 35544
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
Upvotes: 1