表没有排序是怎么回事情 - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → 表没有排序是怎么回事情

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1124 人关注过本帖

标题：表没有排序是怎么回事情

只看楼主加入收藏

雨影81

等　级：新手上路
帖　子：16
专家分：0
注　册：2006-9-19

楼主

问题点数：0 回复次数：4

表没有排序是怎么回事情

我再查询当中直接调用表a，关闭查询结果之后，出现提示“表没有设置排序索引”，但a我明明设置索引了，着急啊！！难道还得从别的地方排序？谢谢了，请大家告知小妹

[此贴子已经被作者于2006-10-4 17:00:36编辑过]

2006-10-04 17:00

Tiger5392

等　级：贵宾
威　望：88
帖　子：2775
专家分：2237
注　册：2006-5-17

第 2 楼

得分:0

没有遇到过这样的提示。是否可帖上你的程序?

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

2006-10-05 11:52

fown

等　级：贵宾
威　望：58
帖　子：1229
专家分：171
注　册：2005-5-26

第 3 楼

得分:0

用命令建立一下索引试试

有人说VFP不行了，我想说，你连VFP十分之一的功能都不会用，你怎么知道VFP不行？本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解

2006-10-06 14:46

雨影81

等　级：新手上路
帖　子：16
专家分：0
注　册：2006-9-19

第 4 楼

得分:0

数据环境 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

Tiger5392

等　级：贵宾
威　望：88
帖　子：2775
专家分：2237
注　册：2006-5-17

第 5 楼

得分:0

建议

(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

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

2006-10-07 23:33

快速回复：表没有排序是怎么回事情