Multi Column List box

[New_Coder]

Is there a way to make a combo box multidimensional. I am populating a combo box through code using from a table REPORT_CHOICE.AddItem !FIELD_NAME The table I am using has two columns FILED_NAME and TABLE_NAME Is there a way to make a combo box multidimensional to hold both columns and be able to extract both colums to two different variables after I make a selection on the drop down box or do I need to 1) reconect to the table 2) search for the "FIELD_NAME" value I selected in the drop down box 3) populate my second variable with the "TABLE_NAME" table value Thanks

[Christian Graus]

No, there's no way to do that.

Christian Graus Please read this if you don't understand the answer I've given you "also I don't think "TranslateOneToTwoBillion OneHundredAndFortySevenMillion FourHundredAndEightyThreeThousand SixHundredAndFortySeven()" is a very good choice for a function name" - SpacixOne ( offering help to someone who really needed it ) ( spaces added for the benefit of people running at < 1280x1024 )

[Rupesh Kumar Swami]

hi, try something like first of all make a structure this is the code for the structure. Private Structure ComboMultipleData Dim FILED_NAME As String Dim TABLE_NAME As String Public Sub New( ByVal FieldVal As String, ByVal TableVal As String) FILED_NAME = FieldVal TABLE_NAME = TableVal End Sub Public Overrides Function ToString() As String Return Me.FILED_NAM End Function End Structure And the code to put this in the combobox and translate it when the user selects an item from the list. Private Sub frmDemo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load 'for the purposes of this demo I am hard coding the entries With REPORT_CHOICE .Items.Add(New ComboMultipleData( "FieldVal1", "Table 1")) .Items.Add(New ComboMultipleData( "FieldVal2", "Table 2")) .Items.Add(New ComboMultipleData( "FieldVal3", "Table 3")) End With End Sub Private Sub REPORT_CHOICE_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles REPORT_CHOICE.SelectedIndexChanged 'in this case simply put the data up into the available fields Dim acc As ComboMultipleData= CType(cboAccounts.SelectedItem, ComboMultipleData) txtFieldName.Text = acc.FILED_NAME txtTableName.Text = acc.TABLE_NAME End Sub hope this helps

Rupesh Kumar Swami Software Engineer, Integrated Solution, Bikaner (India) My Company