程序代码：

lset=UPPER(SET("Safety"))
SET SAFETY OFF
IF !USED('xsda')then
    USE xsda IN 0
ENDIF
SELECT xsda
COPY STRUCTURE EXTENDED TO strutemp
SELECT .t. 是否打印 , * FROM strutemp INTO dbf xsdadyzd
USE in strutemp 
DELETE FILE strutemp
brow
SET SAFETY  &lset