Domino 9 und frühere Versionen > ND7: Entwicklung

NotesViewNavigation

<< < (5/6) > >>

Klafu:
Bei is Nothing then läufts problemlos bis zum getNext


Der code in dem es sich abspielt sieht bis jetzt noch so aus:


--- Code: ---Set templatedb = Session.GetDatabase("", "test.nsf")
       If Not templatedb Is Nothing Then
          Set View = templatedb.GetView("CategoryView")
          If Not View Is Nothing Then
            Set nav = View.CreateViewNav()
            If Not nav Is Nothing Then
              Set Entry = nav.GetFirst
              While Not Entry Is Nothing
                If (Entry.IsCategory = True) Then
                       Entry = Entry.ColumnIndentLevel
                       If (Entry = 0) Then
                           Set popup = Menu.Controls.Add(Type:=msoControlPopup)
                             With popup
                                .Caption = "Hauptkategorie" 'Category
                                .Tag = "1"
                             End With
                       Else
                           Set popup2 = Menu.Controls.Add(Type:=msoControlPopup)
                             With popup2
                                .Caption = "Unterkategorie"
                                .Tag = "1"
                             End With
                       End If
                Else
                   Set Button = Menu.Controls.Add(Type:=msoControlButton)
                   With Button
                       .Caption = "Vorlagen-Name" 'attname
                       .OnAction = "lalaa"
                   End With
                End If
            Set Entry = nav.GetNext(Entry)
            Wend
            End If
          End If
       End If
--- Ende Code ---


Gruß

Axel:
Ich glaube hier liegt der Hund begraben:

...
 If Not nav Is Nothing Then
              Set Entry = nav.GetFirst
              While Not Entry Is Nothing
                If (Entry.IsCategory = True) Then
                      Entry = Entry.ColumnIndentLevel
                       If (Entry = 0) Then
...
...
            Set Entry = nav.GetNext(Entry)
            Wend
...

Du überschreibst den Objektverweis mit dem Rückgabewert der Eigenschaft ColumnIdentLevel um dann die Variable wieder mit GetNext zu verwenden, wo du den Verweis brauchst. Das kann nicht gut gehen.


Axel

Demian:
Moin,moin,

auch wenn bereits ein anderer Lösungsweg eingeschlagen wurde, wäre es doch auch möglich, eine Aktion "Word-Dok öffnen" in die Ansicht einzubauen, die das zugehörige Word-Dokument des markierten Dokuments öffnet.

Allerdings macht sowas nur Sinn, wenn die Word-Dokumente in einem Ordner stehen und die Namen dem Feld KAtegorie entsprechen.

Dann wäre das ganze als User zentral von einer Oberfläche aus zu handhaben.

Gruß
Demian

Klafu:

--- Zitat von: Demian am 02.07.07 - 19:29:32 ---Moin,moin,

auch wenn bereits ein anderer Lösungsweg eingeschlagen wurde, wäre es doch auch möglich, eine Aktion "Word-Dok öffnen" in die Ansicht einzubauen, die das zugehörige Word-Dokument des markierten Dokuments öffnet.

Allerdings macht sowas nur Sinn, wenn die Word-Dokumente in einem Ordner stehen und die Namen dem Feld KAtegorie entsprechen.

Dann wäre das ganze als User zentral von einer Oberfläche aus zu handhaben.

Gruß
Demian

--- Ende Zitat ---

Stimmt, das wäre so schon auch möglich
Allerdings wurde mir gesagt, ich solle eine Lösung via Makro in Word machen :)

Klafu:

--- Zitat von: Axel am 02.07.07 - 19:01:49 ---Ich glaube hier liegt der Hund begraben:

...
 If Not nav Is Nothing Then
              Set Entry = nav.GetFirst
              While Not Entry Is Nothing
                If (Entry.IsCategory = True) Then
                      Entry = Entry.ColumnIndentLevel
                       If (Entry = 0) Then
...
...
            Set Entry = nav.GetNext(Entry)
            Wend
...

Du überschreibst den Objektverweis mit dem Rückgabewert der Eigenschaft ColumnIdentLevel um dann die Variable wieder mit GetNext zu verwenden, wo du den Verweis brauchst. Das kann nicht gut gehen.


Axel


--- Ende Zitat ---

Ich hoffe, daran liegt es...
Ich werde es morgen sofort ausprobieren!

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete