Hallo allerseits,
ich habe ein Outlook AddIn erstellt (VS2015) und dabei ein Problem beim Befüllen einer ComboBox in Outlook (2016).
mit folgendem Code kann ich die ComboBox erfolgreich befüllen:
Private Sub ProjekteInitialisieren()
'Erst mal das Combo leeren
Me.cmbProjekte.Items.Clear()
'Projekte in DropDown einlesen
projectTable = nwDataSet.k10
projectTableAdapter.Fill(projectTable)
Dim projectQuery = From k10 In projectTable.AsEnumerable.Take(2000) Where k10.idc63 = cmbKunden.Text Select Projekt = k10.match, Bezeichnung = k10.bez Order By Projekt
'Abfrage ausführen und in die ComboBox schreiben
For Each item In projectQuery
Me.cmbProjekte.Items.Add(CreateRibbonDropDownItem())
Me.cmbProjekte.Items.Last().Label = item.Projekt & " | " & item.Bezeichnung
Next item
'Ersten Datensatz anzeigen/auswählen
Me.cmbProjekte.Text = Me.cmbProjekte.Items.First().Label
End Sub
Allerdings werden mir hierbei nur die ersten 2000 Datensärtze eingefügt.
Lasse ich nun also die Mengenbegrenzung weg, indem ich statt projectTable.AsEnumerable.Take(2000) den Ausdruck projectTable.AsEnumerable verwende, dann wird mir bei der Ausführung des Codes nichts mehr in die ComboBox geschrieben.
Es sieht also aus, als könnte die ComboBox nur eine bestimmte Menge an Daten aufnehmen und der Vorgang abgebrochen wird, wenn diese maximale Menge überschritten wird.
Hat jemand eine Ahnung ob das so ist und wie man das Problem lösen könnte?
Gruß, ABAN.
|