Foro de elhacker.net

Tengo un DropDownButton y un ComboBox que no carga información, en cuanto al segundo ComboBox si lo hace y ambos tienen el mismo código. Si alguien puede indicarme cual es la razón que no funciona ?
Uso VB - FrameWork 4.50 - Visual Studio Enterprise 2015

(https://social.msdn.microsoft.com/Forums/getfile/870382)

Private Sub FrmPersonal_Selecciona_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ToolStripComboBox1.ComboBox.DataSource = CNTTipoTraba.TTipoTraba_ListaCB.Tables("SQL_Lista")
        ToolStripComboBox1.ComboBox.ValueMember = "CodTipTra"
        ToolStripComboBox1.ComboBox.DisplayMember = "Descripcion"
 
        ToolStripComboBox2.ComboBox.DataSource = CNTTipoTraba.TTipoTraba_ListaCB.Tables("SQL_Lista")
        ToolStripComboBox2.ComboBox.ValueMember = "CodTipTra"
        ToolStripComboBox2.ComboBox.DisplayMember = "Descripcion"
 
End Sub

Hola buenas noches.
Bueno algun error que puedes tener al tratar de hacer esta conexion es que se esta instanciando la misma conexion, la misma tabla y los mismos datos al mismo tiempo. por lo tanto el primer combo box sin problema lo llena pero el segundo es posible que no lo llene por el problema que la conexion a base de datos esta abierta, entonces, no se puede generar la conexion.
Saludos

¿Has probado a hacer lo siguiente?:

ToolStripComboBox1.ComboBox.DataSource = CNTTipoTraba.TTipoTraba_ListaCB.Tables("SQL_Lista")
ToolStripComboBox1.ComboBox.ValueMember = "CodTipTra"
ToolStripComboBox1.ComboBox.DisplayMember = "Descripcion"
 
ToolStripComboBox2.ComboBox.DataSource = ToolStripComboBox1.ComboBox.Items

Saludos!

Hola.
Yo lo eh hecho de la siguiente manera

        Dim MyCommand As OleDb.OleDbCommand
        Dim MyAdapter As New OleDb.OleDbDataAdapter
        Dim MyConexion As New OleDb.OleDbConnection
        MyConexion.ConnectionString = "provider=microsoft.ACE.OLEDB.12.0;DATA SOURCE=" & RutaBD & " ;persist security info=false"
        MyCommand = MyConexion.CreateCommand
        MyCommand.CommandText = "SELECT * FROM Clientes"
        MyAdapter.SelectCommand = MyCommand
        Dim Dt_Cliente As New DataTable
        MyAdapter.Fill(Dt_Cliente)
        MicomboBox.DataSource = Dt_Cliente
        MicomboBox.DisplayMember = "Nombre"
        MicomboBox.ValueMember = "ID"
 

Saludos. espero te sea de ayuda.