Foxpro6.0中如何把表中的连续几个字段的内容设为一个数组变量从而应用于...

发布网友发布时间：2024-10-10 19:21

共3个回答

热心网友时间：2024-11-05 13:52

不是有个命令吗?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

热心网友时间：2024-11-05 13:55

sele 字段1,字段2,字段3 from 表名 where 条件 into array 数组名

热心网友时间：2024-11-05 14:00

go 记录数如: go 2 到第二条记录
变量=字段1+字段2+字段3... ...