Thema Datum  Von Nutzer Rating
Antwort
19.07.2016 08:35:14 Jan
NotSolved
Blau Leeres Array/Variant abfangen
 19.07.2016 16:34:15 Gast98834
NotSolved

Ansicht des Beitrags:
Von:
Gast98834		 Datum:
19.07.2016 16:34:15		 Views:
553		 Rating:
     
Antwort:
  Ja
Thema:
Leeres Array/Variant abfangen

Hallo,

das geht per Api am besten:

Option Explicit

Private Declare Function SafeArrayGetDim Lib "oleaut32.dll" ( _
    ByRef pArray() As Any) As Long

Public Sub Suche()
 
    OrgaRead cb_searchobject.Column(1), "subtree", cb_searchobject.Column(0), cb_searchobject.Column(2), True
         
    If CBool(SafeArrayGetDim(Database)) Then
     
        lbl_search.Caption = UBound(Database, 2) + 1 & " Ergebniss/e"
         
        For I = 0 To UBound(Database, 2)
            If IsNull(Database(2, I)) Then Database(2, I) = ""
            lb_search.AddItem
            lb_search.Column(0, I) = Database(0, I)
            lb_search.Column(1, I) = Database(1, I)
            lb_search.Column(2, I) = Database(2, I)
        Next
    
    End If
    
End Sub

Gruß,

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.07.2016 08:35:14 Jan
NotSolved
Blau Leeres Array/Variant abfangen
 19.07.2016 16:34:15 Gast98834
NotSolved