So etwas zu schreiben:
DEFINE VARIABLE hBuffer AS HANDLE NO-UNDO.
DEFINE VARIABLE i AS INTEGER NO-UNDO.
DEFINE VARIABLE hField AS HANDLE NO-UNDO.
ASSIGN hBuffer = BUFFER pt_mstr:HANDLE .
DO i = 1 TO hBuffer:NUM-FIELDS:
ASSIGN hField = hBuffer:BUFFER-FIELD (i) .
IF hField:DATA-TYPE = "CHARACTER" AND (hField:BUFFER-VALUE = "" OR hField:BUFFER-VALUE = ?) THEN
MESSAGE hField:NAME "is empty"
VIEW-AS ALERT-BOX.
END.
Wenn Arrays Sie werden sie basierend auf hField laufen haben: Umfang und verwenden hField: BUFFER-VALUE [j], um auf den Feldwert zuzugreifen.
Besorgen Sie sich einen Handle für den Datensatz in pt_mstr, und durchlaufen Sie dann die Felder im Datensatz und melden Sie den Feldnamen für diejenigen Felder, die keinen Wert haben. Das Handbuch für Puffer und Pufferfeld wird Ihnen zeigen, wie dies zu tun ist. – Screwtape
hi @Screwtape, können Sie plz senden Sie mir den Code für dieses Programm –