Foxpro6.0中如何把表中的连续几个字段的内容设为一个数组变量从而应用于程序设计
要具体的程序哦 麻烦大家了!
要具体的程序哦 麻烦大家了!
答案:不是有个命令吗?SCATTER
打开文件后,用它就可以把当前记录存入一个数组中.如:
USE ABC
SCATTER TO SZ &&打开文件ABC后,当前记录是第一条,则该命令就把它自动按字段存入数组SZ中了.转到别的记录后,再用此命令,就又把那个记录自动存入数组SZ.下面是个完整的程序.查找删除文件中重复的记录.为一个朋友弄的.供你参考..该记录只有两个字段:生产号,包号.
CLEAR
ACCEPT"请输入文件名: " TO NAM
USE &NAM
K=RECCOUNT()
FOR I=1 TO K
SCATTER TO X &&把当前记录存储到数组
&&标记删除与当前记录相同的全部记录
SCAN FOR 生产号=X(1).AND.包号=X(2)
DELETE
ENDSCAN
LOCATE FOR 生产号=X(1).AND.包号=X(2)
RECALL
PACK &&物理删除其余标记删除的记录
K=RECCOUNT() &&重新获取表中记录数
LOCATE FOR 生产号=X(1).AND.包号=X(2)
SKIP &&下移指针到下条记录
IF EOF() &&如果到文件尾则结束循环,完成操作
EXIT
ENDIF
ENDFOR
USE
RETURN
其他:go 记录数如: go 2 到第二条记录
变量=字段1+字段2+字段3... ... sele 字段1,字段2,字段3 from 表名 where 条件 into array 数组名
上一个:visual foxpro可以用来学习C#么??????
下一个:谁能帮我写一道Visual Foxpro的程序题