PROCEDURE dbc_AfterOpenTable(cTableName)
        =DBSETPROP(<database>,'dastabase',DBCEVENTS,.F.)
	Select (cTableName)
	Use
	Select 0
	USE (cTableName) In 0 Shared
       =DBSETPROP(<database>,'dastabase',DBCEVENTS,.T.)
ENDPROC