PRB: Default Values Not Written on Local Views (131386)

SYMPTOMS

When a table in a database contains default values and a blank record is appended to a local view based on that table, the defaults are not input into the fields automatically. If the view is closed and reopened, the default values are displayed.

RESOLUTION

You can use the DBSETPROP() function to attach a default value to a field in a view. This will automatically insert a default value when a new record is appended. Use the following syntax to set a default value:

   =DBSETPROP('<View.Fieldname>','FIELD','DefaultValue', '<value>')

For more information about the DBSETPROP() function, search for DBSETPROP() in the Visual FoxPro Help menu.

MORE INFORMATION

The following code sample creates a local view that contains default values. To run this code, copy and paste it into a program. Then run the program. When the view is browsed, append records. The default values are inserted in the view.

Code Sample

CLOSE DATABASES
IF NOT FILE('testview.dbf')  &&creates a database and opens it
   CREATE DATA dbctest
   CREATE TABLE testview ;
     (idnumber C (8), NAME C(20) DEFAULT "Smith", city C(20))
ELSE
   SELECT 0
   USE testview
   dataopen=CursorGetProp('database','testview')
   SET DATA TO &dataopen
ENDIF

* Creates a view and sets the view properties
CREATE SQL VIEW myview AS SELECT * FROM testview
=DBSetProp('myview.name','FIELD','DefaultValue',"'Smith'")
=DBSetProp('myview.idnumber','field','keyfield',.T.)
=DBSetProp('myview','view','SendUpdates',.T.)
=DBSetProp('myview.idnumber','field','Updatable',.T.)
=DBSetProp('myview.name','field','Updatable',.T.)
=DBSetProp('myview.city','field','Updatable',.T.)

SELECT 0
USE myview
=DBSetProp('myview','view','tables','testview')
BROWSE
USE

DELETE VIEW myview
CLOSE DATA ALL