下面的示例打开 testdata 数据库中的 testdata 表。
close databases
open database (sys(2004) + 'samples\data\testdata')
use customer && 打开“customer”表
clear
do case
case sys(2029) = '3'
? 'previous versions of foxpro'
case sys(2029) = '48'
? 'visual foxpro table'
case sys(2029) = '67'
? 'dbase iv sql table, no memo fields'
case sys(2029) = '99'
? 'dbase iv sql system table with a memo field'
case sys(2029) = '131'
? 'foxbase+ table with a memo field'
case sys(2029) = '139'
? 'dbase iv table with a memo field'
case sys(2029) = '203'
? 'dbase iv sql table with a memo field'
case sys(2029) = '245'
? 'previous versions of foxpro with a memo field'
endcase