| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1126 人关注过本帖
标题:表没有排序是怎么回事情
只看楼主 加入收藏
雨影81
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-9-19
收藏
 问题点数:0 回复次数:4 
表没有排序是怎么回事情
我再查询当中直接调用表a,关闭查询结果之后,出现提示“表没有设置排序索引”,但a我明明设置索引了,着急啊!!难道还得从别的地方排序?谢谢了,请大家告知小妹

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


2006-10-04 17:00
Tiger5392
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分:0 
没有遇到过这样的提示。是否可帖上你的程序?

感言:学以致用。 博客:http://www./blog/user14/65009/index.shtml email:Tiger5392@
2006-10-05 11:52
fown
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:58
帖 子:1229
专家分:171
注 册:2005-5-26
收藏
得分:0 

用命令建立一下索引试试


有人说VFP不行了,我想说,你连VFP十分之一的功能都不会用,你怎么知道VFP不行?本人拒绝回答学生的问题我回答问题一般情况下只提供思路不提供代码,请理解
2006-10-06 14:46
雨影81
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2006-9-19
收藏
得分: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
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:88
帖 子:2775
专家分:2237
注 册:2006-5-17
收藏
得分: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
快速回复:表没有排序是怎么回事情
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.024455 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved