4D v14.3

Current form table

Home

 
4D v14.3
Current form table

Current form table 


 

Current form table -> Funktionsergebnis 
Parameter Typ   Beschreibung
Funktionsergebnis  Zeiger in Zeiger auf die Tabelle des aktuell angezeigten Formulars

Die Funktion Current form table gibt den Zeiger auf die Tabelle des Formulars zurück, das im aktuellen Prozess angezeigt oder gedruckt wird.

Sie gibt Nil zurück, wenn:

  • Im aktuellen Prozess kein Formular angezeigt oder gedruckt wird
  • Das aktuelle Formular ein Projektformular ist.

Sind für den aktuellen Prozess mehrere Fenster geöffnet, ist das zuletzt geöffnete Fenster das aktuelle aktive Fenster. Die Funktion gibt den Zeiger auf die Tabelle des Formulars zurück, das im aktiven Fenster angezeigt wird.

Ist das aktuell angezeigte Formular das Eingabeformular für ein Unterformular, befinden Sie sich in der Dateneingabe. Sie haben auf einen Datensatz oder Unterdatensatz doppelgeklickt. Die Funktion gibt dann folgendes zurück:

  • Den Zeiger auf die Tabelle im Unterformular, wenn dieses eine Tabelle anzeigt.
  • Einen nicht-signifikanten Zeiger, wenn das Unterformular eine Untertabelle anzeigt.

In Ihrer Anwendung verwenden Sie beim Anzeigen eines Datensatzes folgende Konvention:
Gibt es in einem Formular die Variable vsCurrentRecord, zeigt sie “Neuer Datensatz” an, wenn Sie mit einem neuen Datensatz arbeiten. Bearbeiten Sie den 56. Datensatz in einer Auswahl von 5200 Datensätzen, zeigt sie “56 von 5200” an.

Erstellen Sie dazu die Variable vsCurrentRecord in der Objektmethode, und setzen Sie diese dann per copy /paste in all Ihre Formulare ein:

  ` Objektmethode für die nicht eingebbare Variable vsCurrentRecord
 Case of
    :(Form event=On Load)
       C_STRING(31;vsCurrentRecord)
       C_POINTER($vpParentTable)
       C_LONGINT($vlRecordNum)
       $vpParentTable:=Current form table
       $vlRecordNum:=Record number($vpParentTable->)
       Case of
          :($vlRecordNum=-3)
             vsCurrentRecord:="Neuer Datensatz"
          :($vlRecordNum=-1)
             vsCurrentRecord:="Kein Datensatz"
          :($vlRecordNum>=0)
             vsCurrentRecord:=String(Selected record number($vpParentTable->))+" of "+String(Records in selection($vpParentTable->))
       End case
 End case

 
EIGENSCHAFTEN 

Produkt: 4D
Thema: Tabelle
Nummer: 627

 
GESCHICHTE 

Geändert: 4D v11 SQL

 
SIEHE AUCH 

DIALOG
FORM SET INPUT
FORM SET OUTPUT
Formulare
PRINT SELECTION

 
ARTIKELVERWENDUNG

4D Programmiersprache ( 4D v11 SQL Release 6)
4D Programmiersprache ( 4D v12.4)
4D Programmiersprache ( 4D v14 R2)
4D Programmiersprache ( 4D v14 R3)
4D Programmiersprache ( 4D v13.5)
4D Programmiersprache ( 4D v14.3)
4D Programmiersprache ( 4D v14 R4)