1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

Private Sub loadCboTabellen(sql$, cbo As ComboBox)
   Dim rst As Recordset
   Set rst = dbs.Execute(sql)
   With cbo
       .Clear
       Do Until rst.EOF
       .AddItem (vartoStr(rst!tableBez))   //hier Bezeichnung "Elektrotechnik AC Spannung 400 V"
       .ItemData(.NewIndex) = vartoID(rst!ID_Table)  //hier ANW (als Index) 11010
       rst.MoveNext
       Loop
   End With
   Call closeRec(rst)
End Sub                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

if ((m_indexKomp == CFunctions.cBID_Antrieb) || (m_indexKomp == CFunctions.cBID_Geber))
            {
                //Startindex
                //this.cboANW.Items.Add("Zuweisung nicht möglich");
                this.cboANW.Items.Add(CVarManager.ID_UNDEFINED.ToString());

                int i = 0;
                foreach (DataRow dr in dt.Rows)
                {
                    this.cboANW.Items.Add(dr["BEZEICHNUNG"].ToString());   //Bezeichnungen
                    //this.cboANW. ???? dr["ANW"].ToString())   //zugeordnete Indizes aus der Tabelle
                    i++;                                                       
                }
            }
            else
            {
                
                this.cboANW.Items.Add(CFunctions.cAnwBZ_ET);    //Bezeichnungen
                //this.cboANW. ???? CFunctions.cAnwID_ET)       //zugeordnete Indizes aus der Tabelle
                this.cboANW.Items.Add(CFunctions.cAnwBZ_LT);
                //this.cboANW. ???? CFunctions.cAnwID_LT)
                this.cboANW.Items.Add(CFunctions.cAnwBZ_EL);
                //this.cboANW. ???? CFunctions.cAnwID_EL)
            }