Autor Thema: Variant nach Inhalt abfragen  (Gelesen 1298 mal)

Offline Wiesel

  • Aktives Mitglied
  • ***
  • Beiträge: 188
  • Geschlecht: Weiblich
Variant nach Inhalt abfragen
« am: 06.08.08 - 10:53:37 »
Hallo!

Wie frage ich ein Variant im Skript ab, ob bereits ein Inhalt vorhanden ist oder nicht?
Ich habe ein Feld mit Mehrfachwerten, was noch leer oder bereits gefüllt sein kann.
Wenn es nicht gefüllt ist und ich einfach einen Wert reinpacke, habe ich einen "Leerwert" mit drin. Um das zu vermeiden, möchte ich vorher abfragen, ob bereits ein Wert vorhanden ist oder nicht und dementsprechend das Feld füllen.

Dazu habe ich nachfolgendes geschrieben (Auszug):

Dim altVerteiler As Variant
Dim picklist As Variant
picklist = workspace.PickListStrings( PICKLIST_NAMES, True )

altVerteiler = doc.namVerteiler

If Isarray(altVerteiler) = False  Then
doc.namVerteiler = Arrayappend(altVerteiler,picklist )
Else
doc.namVerteiler = picklist
End If

In der Schleife ist isarray aber immer true und es werden ggf. vorhandene Werte durch die neuen Werte ersetzt.
Wie frage ich also den Variant ab, ob schon was drin geschrieben steht oder nicht??

Danke und Gruß,
Wiesel

Offline LN4ever

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 505
  • Geschlecht: Männlich
Re: Variant nach Inhalt abfragen
« Antwort #1 am: 06.08.08 - 11:03:29 »
Hallo Wiesel,

If Isempty(Picklist) Then Exit Sub

Das bewahrt dich davor, daß du den Abbruch durch den Benutzer übersiehst.

Dein leeres Feld kannst du am einfachsten prüfen, indem du

If UBound(altverteiler)=0 And Trim(altverteiler(0))=""

abprüfst.

Gruß

Norbert
Situs vilate in isse tabernit.

Offline Wiesel

  • Aktives Mitglied
  • ***
  • Beiträge: 188
  • Geschlecht: Weiblich
Re: Variant nach Inhalt abfragen
« Antwort #2 am: 06.08.08 - 11:09:35 »
Danke, genau das war´s :o)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz