Article ID: 163029
Article Last Modified on 10/15/2003
CLOSE DATABASES
SET DEFAULT TO C:\KBTEST
* Create a database and open it
IF NOT FILE('Table1.dbf')
CREATE DATA Data1
CREATE TABLE Table1 (ID C (8) Primary Key, State C (2))
SET MULTILOCKS ON
=CURSORSETPROP('Buffering', 5, 'Table1' )
ELSE
OPEN DATABASE Data1 EXCLUSIVE
ENDIF
* Create a view based on Table1
CREATE SQL VIEW View1 AS SELECT * FROM Table1
= DBSETPROP('View1.ID', 'Field', 'KeyField', .T.)
= DBSETPROP('View1.ID', 'Field', 'UpdateName','Table1.ID')
= DBSETPROP('View1.ID', 'Field', 'Updatable', .T.)
= DBSETPROP('View1.State', 'Field', 'Updatable', .T.)
= DBSETPROP('View1', 'View', 'SendUpdates', .T.)
* Set the view DefaultValue property
= DBSETPROP('View1.State', 'Field', 'DefaultValue', "'WA'")
SELECT 0
USE View1
BROWSE
= TABLEUPDATE(.T.)
= REQUERY()
Keywords: kbbug kbfix kbvfp500fix KB163029