小弟有一个数据库，记录共有3102575条记录，经常使用SELECT-SQL查询根据某个条件提取出自己想要的数据，问题是用SELECT-SQL查询速度太慢，我想用索引查询的方式查询，结果弄了半天，只能查询出2条记录，太郁闷了，请高手为我看看程序不知道哪里不对，
SET TALK OFF
SET SAFETY off
CLOSE ALL
SELECT 1
USE 2009 ORDER hm
SELECT 2
 USE kk
 ZAP
 SELECT 1
  seek "江于友"     
     IF  FOUND()
      jyrqzd=ALLTRIM(jyrq)
      jgmzd=ALLTRIM(jgm)
      dljgzd=ALLTRIM(dljg)
      jymzd=ALLTRIM(jym)
      zyzd=ALLTRIM(zy)
      zhzd=ALLTRIM(zh)
      hmzd=ALLTRIM(hm)
      bzzd=ALLTRIM(bz)
      kmhzd=ALLTRIM(kmh)
      dfkmzd=ALLTRIM(dfkm)
      jyjezd=jyje
      yezd=ye
      czyzd=ALLTRIM(czy)
      fhyzd=ALLTRIM(fhy)
      zxlshzd=ALLTRIM(zxlsh)     
  SELECT 2
  APPEND blank
  replace jyrq WITH jyrqzd,jgm WITH jgmzd,dljg WITH dljgzd, jym WITH jymzd,zy WITH zyzd,zh WITH zhzd,hm WITH hmzd,bz WITH  bzzd,kmh WITH kmhzd,dfkm WITH dfkmzd,jyje WITH jyjezd,;
          ye WITH yezd,czy WITH czyzd,fhy WITH fhyzd,zxlsh WITH zxlshzd   
  ENDIF  
  SELECT 1
  DO WHILE NOT EOF()
   SKIP  
      IF FOUND()
      jyrqzd=ALLTRIM(jyrq)
      jgmzd=ALLTRIM(jgm)
      dljgzd=ALLTRIM(dljg)
      jymzd=ALLTRIM(jym)
      zyzd=ALLTRIM(zy)
      zhzd=ALLTRIM(zh)
      hmzd=ALLTRIM(hm)
      bzzd=ALLTRIM(bz)
      kmhzd=ALLTRIM(kmh)
      dfkmzd=ALLTRIM(dfkm)
      jyjezd=jyje
      yezd=ye
      czyzd=ALLTRIM(czy)
      fhyzd=ALLTRIM(fhy)
      zxlshzd=ALLTRIM(zxlsh)     
  SELECT 2
  APPEND blank
  replace jyrq WITH jyrqzd,jgm WITH jgmzd,dljg WITH dljgzd, jym WITH jymzd,zy WITH zyzd,zh WITH zhzd,hm WITH hmzd,bz WITH  bzzd,kmh WITH kmhzd,dfkm WITH dfkmzd,jyje WITH jyjezd,;
          ye WITH yezd,czy WITH czyzd,fhy WITH fhyzd,zxlsh WITH zxlshzd     
 ENDIF
ENDDO
CLOSE ALL
USE kk
  COPY TO c:\init\江于友 TYPE xls
=MESSAGEBOX("处理完毕！！")
CLOSE ALL
小弟在此先谢谢了！

很简单的, 不需要1楼这么一长串的代码的~   假设江于友所在字段名为: xxxx, 则代码如下:

clos all
use 2009 ORDER hm
seek "江于友"     
IF  FOUND()
    COPY rest whil xxxx="江于友" TO c:\init\江于友 TYPE xls
    =MESSAGEBOX("处理完毕！！")
endif
clos all

啊，版主茵梦湖真厉害，问题解决了，版主就是版主！向版主茵梦湖学习！

试试seek命令和locat命令哪个更快：
LOCATE for 姓名="江于友"
IF FOUND()
    COPY TO s:\mydbf xls for 姓名="江于友"
    =MESSAGEBOX("处理完毕！！")
ENDIF

当然SEEK啦！二楼的效率是很高的！