表没有排序是怎么回事情
我再查询当中直接调用表a，关闭查询结果之后，出现提示“表没有设置排序索引”，但a我明明设置索引了，着急啊！！难道还得从别的地方排序？谢谢了，请大家告知小妹
[此贴子已经被作者于2006-10-4 17:00:36编辑过]
2006-10-04 17:00
2006-10-05 11:52
2006-10-06 14:46
数据环境 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
2006-10-07 08:49
建议
(1)在表单的初始化部分(THISFORM.INIT)打开文件(use d:\vf\xsjbqkb.dbf)并将其绑定在表格(GRID1)中
close all
use d:\vf\xsjbqkb.dbf
THISFORM.GRID1.RECORDSOURCETYPE=1
THISFORM.GRID1.COLUMNCOUNT=-1
THISFORM.GRID1.RECORDSOURCE="xsjbqkb"
PUBLIC XM
(2)在查询命令按钮的CLICK过程里写上如下的代码
xm=alltrim(thisform.text1.value)
IF EMPTY(xm)
SET FILTER TO
ELSE
SET FILTER TO XM$姓名
GO TOP
ENDIF
THISFORM.REFRESH
2006-10-07 23:33