Domino 9 und frühere Versionen > ND6: Entwicklung

Evaluate actions for every document change - In private views

<< < (2/2)

Johnson:
Das hab ich grad gemerkt... Ich kann sie irgendwie nicht löschen...
Die Funktion GetView eines NotesDatabase-Objektes gibt mir die Ansicht nicht zurück.

Johnson:
Wer sagt's denn:

Das ist zwar ein Workaround, den ich nicht so toll finde, aber er tut  >:D:


--- Code: --- Dim db_desktop As NotesDatabase
Dim s As NotesSession
Dim var_views As Variant

Set s = New NotesSession
Set db_desktop = s.GetDatabase("", "desktop6.ndk")
var_views = db_desktop.Views
Forall var_view In var_views
If var_view.Aliases(0) = "MyPrivateView" Then
Set view = var_view
Call RemoveView(view)
Exit Forall
End If
End Forall

--- Ende Code ---

Die Funktion RemoveView macht nix weiter als sich das Designdokument der übergebenene View zu holen und dann zu löschen.
Wenn ich die Datenbank im Designer öffne, dann ist die View noch drin, aber im Client nicht mehr.

Navigation

[0] Themen-Index

[*] Vorherige Sete