Domino 9 und frühere Versionen > Entwicklung

Array leer -> Exit Sub

<< < (2/2)

robertpp:
Ich hab die Lösung ;D ;D

   If Isempty(iz) Then
      Exit Sub
   End If

so geht es!!!!

koehlerbv:
Trotz der vielen, vielen Ausrufezeichen: Die Sache war aber jetzt etwas wirr.
Kannst Du uns (klaussal, Driri und mir sowie der anderen atnotes-Gemeinde, die den Thread ja ggf. mit gelesen hat) ein paar nähere Infos geben ?

Bernhard

robertpp:
Die Lösung:
Dim arrayAccess() As String
Dim iz as Integer
Jetzt ist das array leer und iz ist auch leer:
Wenn jetzt die erste if Formel eintritt und iz gleich leer ist dann macht er das rotgeschriebenen das ist eh einleuchtend.

If zentry.ColumnValues(2) = "115" Then
   If iz =0 Then
      Redim arrayZugriff( iz )
      arrayZugriff( iz ) = zentry.ColumnValues(1)
      iz = iz + 1  
   Else
      Redim Preserve arrayZugriff( iz )
      arrayZugriff( iz ) = zentry.ColumnValues(1)
      iz = iz + 1
   End If
End If
Sollte jetzt aber nie zentry.ColumnValues(2) = "115" sein dann hat das array auch keine werte und iz ist immer noch empty und genau das hab ich gebraucht!!

If Isempty(iz) Then
      Exit Sub
   End If

koehlerbv:
Mit dem "Code drumherum" wird es etwas klarer. Aber Du hast nicht recht:


--- Zitat ---Dim arrayAccess() As String
Dim iz as Integer

--- Ende Zitat ---

Nach der Definition von iz hat diese Variable den Wert 0, ist also keinesfalls "IsEmpty".
Der Sinn der Definition von arrayAccess erschliesst sich mir nicht ganz.

An Hand folgenden Beispielcodes kannst Du das Ganze ja mal nachvollziehen:

Sub Click(Source As Button)
   
   Dim arrayAccess () As String
   Dim iz As Integer
   
   If Isempty (arrayAccess) Then
      Msgbox "ArrayAccess ist Empty"
   End If
   
   If Isnull (arrayAccess) Then
      Msgbox "ArrayAccess ist NULL"
   End If
   
   If Isscalar (arrayAccess) Then
      Msgbox "ArrayAccess ist skalar"
   End If
   
   If iz = 0 Then
      Msgbox "iz = 0"
   Else
      Msgbox "iz <> 0"
   End If
   
   If Isempty (iz) Then
      Msgbox "iz is empty "
   Else
      Msgbox "iz is NOT empty "
   End If
   
End Sub

Vulgo:
- iz ist nicht leer, sondern hat den Integerwert 0.
- was Du mit "array" meinst, weiss ich nicht, da Du mit arrayAccess und arrayZugriff dealst. Hast Du Option Declare verwendet ?

Bernhard

Navigation

[0] Themen-Index

[*] Vorherige Sete