CLEAR
USE D:\下载文件\lj.dbf IN 1
CREATE TABLE 字(号 c(2),次数 n(10,2))&&\Creat Table 是一个内嵌的SQL语句,是用命令的方法通过编程建立表结构。其命令格式为:
USE 字 IN 2
&&\Creat Table <表名>(<字段名1><字段类型>[<字段宽度,小数位数>])[,<字段名2>...])。
SELECT 1
&&\例:
z=RECCOUNT()
&&\Creat Table DX(编号 C(5),年月 C(4),费用 N(6,1))
FOR i=1 TO z
&&\即:创建一个名为DX的表,一个字段
GO i
c=LEN(ALLTRIM(姓名))
FOR f=1 TO c-1 STEP 2
SELECT 1
GO i
x=SUBSTR(姓名,f,2)
SELECT 2
LOCATE FOR 号=x
&&\如果 LOCATE 找到了匹配的记录,则可以用 RECNO( ) 返回匹配记录的编号。
IF FOUND()
&&\如果找到匹配记录,则 FOUND( ) 返回真(.T.),EOF( ) 返回假(.F.)。
d=RECNO()
GO d
REPLACE 次数 WITH 次数+1
&&\REPLACE 字段名 WITH 表达式 FOR 条件
ELSE
INSERT INTO 字(号,次数)value(x,1) &&\insert into 表名(字段1,字段2,...) values(值1,值2,...)
ENDIF
ENDFOR
SELECT 1
ENDFOR
SELECT 2
LIST
***********
给楼主补一个,应该是这样的吧