Zweck
Definiert eine Bedingung, ob eine Eingabe unterstützt wird.
Klasse
bEditCondition
Zugriffe
Editable | (Access / Assign) |
Methoden
Erbt von
<kein Vorfahre>
Vererbt an
<kein Nachfahre>
Beschreibung
Für einzelne Zeilen, Spalten oder auch Zellen kann über eine Bedingung die Eingabefähigkeit definiert werden.
Eingabebedingungen werden sowohl in der Klasse bBrowser als auch in der Klasse bDataColumnunterstützt.
Beispiele
Das folgende Beispiel definiert eine Eingabebedingung für die Datenspalte #DEC, mit der die Eingabe verhindert wird, sofern das Feld #TYPE nicht den Wert "N" enthält.
LOCAL oasDBSTRUCT AS bArrayServer
LOCAL auStruct AS ARRAY
LOCAL oBrowser AS bBrowser
LOCAL oColumn AS bDataColumn
LOCAL oEditCondition AS bEditCondition
// bArrayServer erzeugen
auStruct := {;
{"NAME", "C", 10, 0},;
{"TYPE", "C", 1, 0},;
{"LEN", "N", 3, 0},;
{"DEC", "N", 2, 0};
}
oasDBSTRUCT := bArrayServer{auStruct}
// bBrowser erzeugen
oBrowser := bBrowser{oOwner,;
1000,;
Point{0, 0},;
Dimension{300, 250}}
oBrowser:Use(oasDBSTRUCT)
oBrowser:Show()
// Datenspalte #DEC ermitteln
oColumn := oBrowser:GetColumn(#DEC)
IF oColumn<>NULL_OBJECT
// Bedingung für die Eingabe definieren
oEditCondition := bEditCondition{'Server:TYPE<>"N"',;
oasDBSTRUCT,;
FALSE}
oColumn:EditCondition:Add(oEditCondition)
ENDIF
Siehe auch
Page url: http://www.YOURSERVER.com/index.html?beditcondition.htm