PRB: Resetting the DataCombo RowSource Property Resets the BoundColumn Property (238406)

MORE INFORMATION

When you set the RowSource property of the DataCombo control, it resets the BoundColumn property to the same field name as the ListField property. You can see this in the DataCombo's Properties window at design time. When you add a DataCombo to a form and set the RowSource, RowMember, and ListField properties, the BoundColumn property initially takes on the same field name as the ListField property. The same behavior occurs at run time if you reset the RowSource property in code.

The following sample application demonstrates the problem and the workaround.

Steps to Reproduce:

1. In Microsoft Visual Basic 6.0, create a new Standard EXE project.
2. On the Project menu, click Components, and select the following controls:
   • Microsoft ADO Data Control 6.0 (OLEDB)
   • Microsoft DataList Controls 6.0 (OLEDB)
3. Place the following controls onto Form1:
   • ADO Data Control
     Name: ADODC1
     CommandType: adCmdTable
     ConnectionString: Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Nwind.MDB
     RecordSource: Customers
   • DataCombo
     Name: DataCombo1
     RowSource: ADODC1
     ListField: CompanyName
     BoundColumn: CustomerID (note that CompanyName is the default)
   • Command Button
     Name: Command1
   • Command Button
     Name: Command2
4. In Form1's Code window, paste the following code:

   Private Sub Command1_Click()
     MsgBox "Text: " & DataCombo1.Text & ", BoundText: " & DataCombo1.BoundText
   End Sub
   
   Private Sub Command2_Click()
     With DataCombo1
       Set .RowSource = Adodc1.Recordset
   '    .BoundColumn = "CustomerID"
   '    .Text = .Text
     End With
   End Sub
   					

5. Run the project. In the DataCombo, select a CompanyName.
6. Click Command1. The CompanyName is displayed in the Text property, and the 5-letter CustomerID is displayed in the BoundText property.
7. Click Command2 to programmatically change the RowSource property. Click Command1 again. The BoundText property now displays the CompanyName instead of the CustomerID.
8. End the project. Uncomment the two lines in Command2_Click event procedure to reset the BoundColumn and Text properties in code.
9. Run the project. Click Command1, click Command2, and then click Command1. The BoundText property now displays the CustomerID even after you click Command2.