Question

VFP的数据库，想删除第一列Code中有重复的行，只保留一行，求各位大神

告知该怎么做

Answer 1

sort on code to bak
use bak
x=code
skip
do while not eof()
    if code=x
        delete
    else
        x=code
    endif
    skip
enddo

追问

谢谢但运行好像还是不行
do while not eof（）
这句显示的是 在交互方式下不能使用此语句

追答

整个这个作为一个程序文件（prg），用do去执行。