Самый быстрый способ заполнения combobox из datatable в VB.Net

Question

Таблица данных в следующем коде заполняется записями 7500- +. Все это быстро загружается с сервера. Проблема в том, что требуется некоторое время, чтобы перебирать строки данных, чтобы добавить их в поле со списком. Есть ли альтернативный способ установки источника данных в поле со списком или способ ускорения этого процесса?

 Dim dtColours As New DataTable 
     Dim daColours As New SqlDataAdapter 
     Dim i As Integer 

     ConnectToSQL() 
     daColours = New SqlDataAdapter("SELECT DISTINCT Rtrim(UPPER(Colour)) As Colour FROM invStockColour WHERE InUse = 1 ORDER BY Colour", dbSQL) 
     daColours.Fill(dtColours) 

     For i = 0 To dtColours.Rows.Count - 1 
      cboColours.Items.Add(dtColours.Rows(i).Item(0).ToString) 
     Next 

     dbSQL.Close() 

Answer 1

голодном способом было бы использовать метод AddRange вместо использования Add, что-то вроде:

Dim items = dtColours.AsEnumerable().Select(Function(d) DirectCast(d(0).ToString(), Object)).ToArray() 
cboColours.Items.AddRange(items) 

Я сделал простую проверку, и использование AddRange в ~ 3 раза быстрее, чем с использованием Add.

Конечно, выделение массива и заполнение его контуром For, вероятно, на несколько миллисекунд быстрее, чем использование Linq.

Answer 2

Попробуйте это:

cboColours.DataSource = dtColours 'For Windows Forms или

cboColours.ItemsSource = dtColours 'For WPF

Answer 3

Dim daColours As New SqlDataAdapter("SELECT DISTINCT Rtrim(UPPER(Colour)) As Colour FROM invStockColour WHERE InUse = 1 ORDER BY Colour", dbSQL) 

Dim dtColours As New DataTable 
daColours.Fill(dtColours) 

cboColours.DataSource=dtColours 
cboColours.DisplayMember="Colour" 

Answer 4

Вы также можете привязать свойство DataSource ComboBox к DataTable. Это имеет дополнительное преимущество для привязки других данных столбца (таких как значения ключей, которые вы, возможно, не хотите видеть пользователю).

Вы должны иметь возможность вернуть объект DataTable из своего SQLAdapter.

cboColours.DataSource = dtColours 
cboColours.DisplayMember = dtColours.Columns("Colour").ToString 
cboColours.ValueMember = dtColours.Columns("Colour_id").ToString