Domino 9 und frühere Versionen > ND8: Entwicklung

Maske mit großer Tabelle

<< < (2/2)

Tode:
Wenn die Werte von Zeile und Spalte abhängig sind, dann übergib doch einfach -wie Mitch geschrieben hat- diese beiden Werte...

Also so:

Im Button:

Call MeineSub( 1 , 1 )

und die Sub:


--- Code: ---Sub MeineSub( intZeile as Integer, intSpalte as Integer )
  Dim ws as New NotesUIWorkspace
  Dim uidoc as NotesUIDocument
  Dim doc as NotesDocument
  set uidoc = ws.CurrentDocument
  set doc = uidoc.Document
  select case intZeile
    case 1,2,3,4,5
      parameter1 = doc.GetItemValue( "WichtigesFeld" )(0)
      parameter2 = "xyz"
    case 7
      parameter1 = "nix"
      parameter2 = "abc"
      select case intSpalte
        case 1
          parameter3 = doc.GetItemValue( "AnderesWichtigesFeld" )(0)
        case 3
          parameter3 = ""
      end select
    end select
    ....hier arbeitest Du mit Deinen parametern
End Sub

--- Ende Code ---

Auf diese Weise ist der Code und die Logik komplett in der Sub, und Du musst die Buttons nie mehr anpassen...
Allerdings bin ich mir SICHER, dass es für das, was Du tun willst, eine bessere Methode gibt, als hunderte Buttons zu erstellen...
Aber das steht auf einem ganz anderen Blatt...

Tom_S:
Hallo Torsten,

danke auch dir für deine Antwort. Ja, so habe ich das nun auch gemacht, dass die eigentliche Funktion ausgelagert ist und jeder Button mit seiner Zeile und Spalte die Funktion aufruft.

Naja, ich weiß nicht, ob es da auch eine bessere Lösung gibt.
Der Wunsch ist ja folgender:
In jeder Zeile soll ein Button sein, über dem man ein Dokument einer anderen Maske erstellt. Das Dokument soll dann (je nachdem welcher Button in welcher Zeile/Spalte geklickt wurde) schon bestimmte Felder vorbelegt bekommen.
Klar könnte man auch nur einen Button, bzw. dann halt ne Aktion erstellen, die weiter nach "Zeile" und "Spalte" abfragt, aber das wäre ja wieder mehr Aufwand für die Benutzer. ;)

Vielen Dank euch trotzdem!

Liebe Grüße
Tom

Navigation

[0] Themen-Index

[*] Vorherige Sete