表没有排序是怎么回事情
我再查询当中直接调用表a，关闭查询结果之后，出现提示“表没有设置排序索引”，但a我明明设置索引了，着急啊！！难道还得从别的地方排序？谢谢了，请大家告知小妹
[此贴子已经被作者于2006-10-4 17:00:36编辑过]
数据环境 xsjbqkb.dbf
close all
xm=thisform.text1.Value
use d:\vf\xsjbqkb.dbf
IF .not. EMPTY(xm)
locat for alltrim(姓名)=alltrim(thisform.text1.value)
**do while not eof()
**continu
**enddo
if not found( )
=messagebox("无相关记录","系统提示")
else
thisform.grid1.refresh
thisform.grid1.recordsource="select * from d:\vf\xsjbqkb where alltrim(姓名)=alltrim(thisform.text1.value)"
endif
else
=MESSAGEBOX("请输入姓名!!!!!",0+48,"系统提示")
ENDIF
RETURN
THISFORM.REFRESH
