Visual Basic

Private Structure ComboMultipleData<br />
    Dim FILED_NAME As String<br />
    Dim TABLE_NAME As String<br />
      Public Sub New( ByVal FieldVal As String, ByVal TableVal As String)<br />
     <br />
        FILED_NAME = FieldVal <br />
        TABLE_NAME = TableVal <br />
    End Sub<br />
<br />
    Public Overrides Function ToString() As String<br />
        Return Me.FILED_NAM<br />
    End Function<br />
End Structure

Private Sub frmDemo_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
    'for the purposes of this demo I am hard coding the entries<br />
    With REPORT_CHOICE<br />
       .Items.Add(New ComboMultipleData( "FieldVal1", "Table 1"))<br />
       .Items.Add(New ComboMultipleData( "FieldVal2", "Table 2"))<br />
    .Items.Add(New ComboMultipleData( "FieldVal3", "Table 3"))<br />
    End With<br />
  <br />
End Sub<br />
<br />
Private Sub REPORT_CHOICE_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles REPORT_CHOICE.SelectedIndexChanged<br />
    'in this case simply put the data up into the available fields<br />
    Dim acc As ComboMultipleData= CType(cboAccounts.SelectedItem, ComboMultipleData)<br />
    <br />
    txtFieldName.Text = acc.FILED_NAME<br />
    txtTableName.Text = acc.TABLE_NAME<br />
End Sub