vb.net - una - Combobox plana de varias columnas: columnas de relleno con tablas de DB

llenar combobox vb.net manualmente

Question

Encontré un muy buen combobox gratuito de varias columnas, pero no puedo llenar la segunda columna con It, hasta ahora logré mostrar solo 1 columna. ¿Alguien tiene alguna experiencia haciendo esto a través de Datable? Tiene que hacerse así, al menos auhors de control afirman que sí. Aquí está mi código:

EDITAR:

 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim SQL As String = "SELECT Name,Surname from MyTable"
Dim dtb As New DataTable
dtb.Columns.Add("Name", System.Type.GetType("System.String"))
dtb.Columns.Add("Surname, System.Type.GetType("System.String"))
Using con As OracleConnection = New OracleConnection("Data Source=MyDB;User Id=Lucky;Password=MyPassword;")
Try
con.Open()
Using dad As New OracleDataAdapter(SQL, con)
dad.Fill(dtb)
End Using
MtgcComboBox1.ColumnNum = 2
MtgcComboBox1.LoadingType = MTGCComboBox.CaricamentoCombo.DataTable
MtgcComboBox1.SourceDataString = {"Name", "Surname"}
MtgcComboBox1.SourceDataTable = dtb
con.Close()
Catch ex As Exception
''MessageBox.Show(ex.Message)
Finally
con.Dispose()
End Try
End Using

Y aquí hay un enlace para el control, algunas instrucciones también: http://www.codeproject.com/Articles/8619/Flat-MultiColumn-Combobox-with-Autocomplete

Answer 1

Creo que te faltan las instrucciones para mostrar las columnas. Del ejemplo:

 MtgcComboBox1.LoadingType = MTGCComboBox.CaricamentoCombo.DataTable
MtgcComboBox1.SourceDataString = {"Name", "SurName"}
MtgcComboBox1.ColumnWidth = "100;100"
MtgcComboBox1.SourceDataTable = dtb

Answer 2

Esta es la versión simplificada de la respuesta de cualquier forma para un cuadro combinado con 2 valores por línea.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim dtb As New DataTable
Using dad As New OracleDataAdapter("SELECT Name,Surname from MyTable", "Data Source=MyDB;User Id=Lucky;Password=MyPassword;")
dad.Fill(dtb) '' this should add the columns
End Using
Dim items = From r In dtb.Rows.Cast(Of DataRow) r(0).ToString & vbNullChar & r(1).ToString
ComboBox1.DrawMode = DrawMode.OwnerDrawFixed
ComboBox1.DataSource = items.ToList
''ComboBox1.DisplayMember = "Name"
''ComboBox1.ValueMember = "Surname"
End Sub
Private Sub ComboBox1_DrawItem(sender As Object, e As DrawItemEventArgs) Handles ComboBox1.DrawItem
e.DrawBackground() '' Fill the background.
Dim items = ComboBox1.Items(e.Index).ToString.Split(ControlChars.NullChar) '' Extract the Record object corresponding to the combobox item to be drawn.
Dim loc = e.Bounds.Location, xMid = (loc.X + e.Bounds.Width - loc.X) / 2 '' Calculate important positions based on the area of the drop-down box.
TextRenderer.DrawText(e.Graphics, items(0), e.Font, loc, e.ForeColor) '' Draw the first (Unique ID) string in the first half.
TextRenderer.DrawText(e.Graphics, items(1), e.Font, New Point(xMid + 5, loc.Y), e.ForeColor) '' Draw the second (Name) string in the second half, adding a bit of padding.
e.Graphics.DrawLine(SystemPens.ButtonFace, xMid, loc.Y, xMid, loc.Y + e.Bounds.Height) '' optional Draw the column separator line right down the middle.
e.DrawFocusRectangle() '' Finally, draw the focus rectangle.
End Sub