Dim USstates(50) As MTGCComboBoxItem
Dim i As Integer = 0
For i = 0 To Dspadrug1.Tables(0).Rows.Count - 1
USstates(i) = Dspadrug1.Tables(0).Rows(i).Item("LN").String & " " & Dspadrug1.Tables(0).Rows(i).Item("AWP").String & " " & Dspadrug1.Tables(0).Rows(i).Item("GCN_SEQNO").String
i = i + 1
Next
comboTest.SelectedIndex = -1
comboTest.Items.Clear()
comboTest.LoadingType = MTGCComboBox.CaricamentoCombo.ComboBoxItem
comboTest.Items.AddRange(USstates)
MsgBox("Loading completed!", MsgBoxStyle.Information)
|