Navigation:  Klassen > bDataColumn >

bDataColumn:EditCondition

Diese Seite drucken    Vorherige SeiteZurück zum Anfang des KapitelsNächste Seite

Zweck

Liste von Eingabebedingungen, die für das Editieren von Zellwerten berücksichtigt werden sollen.

Klasse

bDataColumn

Typ

Access

Datentyp

bEditConditionList

Beschreibung

Mit dem Zugriff bDataColumn:Editable kann das Editieren von Spaltenwerten für die gesamte Datenspalte ein- bzw. ausgeschaltet werden. Wenn das Editieren von Spaltenwerten eingeschaltet ist, dann können mit dem Zugriff bDataColumn:EditCondition zusätzliche Eingabebedingungen definiert werden, wann ein Spaltenwert editiert werden darf. Es ist z.B. möglich, das ein Spaltenwert nur dann editiert werden darf, wenn ein Feld einen bestimmten Wert enthält.

 

Mit der Methode bDataColumn:ExistEditConditions() kann geprüft werden, ob Eingabebedingungen definiert sind.

 

Zusätzlich zu den Eingabebedingungen in der Datenspalte können auch für den gesamten bBrowser Eingabebedingungen mit dem Zugriff bBrowser:EditConditiondefiniert werden.

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

bBrowser:EditCondition

bDataColumn:Editable

bDataColumn:ExistEditConditions()

bEditCondition

bEditConditionList

 


Page url: http://www.YOURSERVER.com/index.html?bdatacolumn_editcondition.htm