说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

请问各位高手,如何只利用TTable控件实现记录的排序??? 谢谢指点!

编辑:说三道四文库 发布时间:2017-04-26 09:48
HTML文档下载 WORD文档下载 PDF文档下载
我现在需要实现只通过TTable和DBGrid实现排序功能,请问各位高手如何实现!
只有靠索引了,必须已有索引才行
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
DataSet:TdataSet;
begin
  DataSet := Column.Field.DataSet;
    if DataSet is TCustomDataSet then
    begin
      screen.cursor:=crhourglass;
      try
        with TCustomDataSet(DataSet) do
          if (Pos(Column.Field.FieldName, Sort) = 1) and (Pos(' DESC', Sort) = 0) then
            begin
              Sort := Column.Field.FieldName + ' DESC';
              StatusBar1.panels[0].Text:=column.field.DisplayLabel+ ' :按下降排序';
            end
          else
            begin
              Sort := Column.Field.FieldName + ' ASC';
              StatusBar1.panels[0].Text:=column.field.DisplayLabel+ ' :按上升排序';
            end;
      finally
        screen.cursor:=crdefault;
      end;
    end;
end;
回答完了,请加分!
设置TABEL的indexfieldname为要排序的字段名就可以了
对了,上面的只试用于Adotable
对了,上面的只试用于Adotable
TCustomDataSet应该是TCustomAdoDataSet
 2 wanwangzhiwang(万王之王) :
   TcustomDataset在那个单元里声明的?
刚刚看到!
只怪CSDN页面处理太慢了。
设置TABEL的indexfieldname为要排序的字段名就可以了 
thedream(梦幻使者)的方法也可以,但必须是索引字段才行!
Thanks for your help !!!
设置TABEL的indexfieldname为要排序的字段名就可以了 ,但要先建立索引
VB如何读取 Picture 内任何一点的颜色值? VB如何获取硬盘卷标、序列号和文件系统类型? VB如何判别程序是在Win95或NT下执行? VB如何启动控制面板? VB如何取得磁盘序列号? VB如何让Window不接受键盘输入及Mouse Click VB如何让程序拥有多个热键? VB如何让用户自行输入方程式,并计算其结果? VB如何使程序不在Ctrl+Alt+Del弹出的对话框内? VB如何使用 VB 编写自动反安装的程序? VB如何用VB建立快捷方式 VB如何用VB在桌面建立快捷方式 VB如何在 VB 中控制 Modem 行为? VB如何在VB中判断Windows9x的运行模式 VB如何在Visual Basic中实现异步执行程序 VB如何在开机时自动更换墙纸? 使回车具有 Tab 的功能-VB资料 输入时,自动转换成小写? -VB资料 显示多媒体信息 -VB资料 也谈Windows 下的自动存盘 -VB资料 一个小巧精致的CPU监视器 -VB资料 应用VB4.0实现工业控制的实时曲线和历史曲线 应用程序中实现关机功能-VB资料 萤幕抓取与萤幕保护程式 -VB资料 用VB5.0创建Windows快捷方式 用VB5.0收集键盘和鼠标信息 用VBA限制非注册软件使用时间 用VB编程检测当前电池使用情况 用VB编写定时关闭计算机的程序 用VB编写键盘拦截程序 用VB函数轻松访问系统注册表 郁闷,散分!!顺便问一下怎样吧string转为Number? 高分征集“图书馆管理软件”的毕业论文 问一下 急!!!!!!在给等 江苏省程序员考试什么时候报名?(在线等待,立即给分!) 请教类似VB中mid功能的delphi函数名!急急急 本人要应聘程序员工作,向大家请教经验。散分! 请问Oracle9iAS Portal宝典这本书怎么样? 初学delphi,请问delphi中有没有静态变量,就像vb中的static 在delphi中有没有静态变量,就像 vb中的static Delphi (如何打包) 有什么 可以 将 我的东西 转化成 具体的软件????? 我发现,假如在FORM1窗体中,有命令form2.showmodal,那么,在form2.free时,FORM1窗体受不受影响?。 有没有绘制流程图的控件? 我用ADO连接SQL-SERVER,怎么能解决由于网络中断造成的数据重连接问题? VB ListView 中如何判断那些复选框是被选中的,那些不是? 如何让动态创建的窗口获得焦点? 100分求教,如何让自己的程序支持插件 关于一个画图的小程序 江湖救急!!高分求助!! 各位高手介绍几本关于JB6的好书 300分求得TAPI的监控问题。学会后一定给分。 哪位认识它:readme.eml(图表是一个打开的信封,白色) VB.NET中如何在立即窗口运行表达式,如要运行3+2,如何输入才能显示结果? 为什么在派生类的时候找不到CWnd? 急:各位大侠!问一个很菜的问题?在JB6中发布的问题: 我在ASP调用VB写的组件,结果报下面的错误 小弟有两个问题想问问大家??? 请问sql server2000中如何导出关系图的? 编译的问题!! WinExec()老问题???? 负载均衡有多少种方法?可以简要 我的程序是UNICODE版,由GetHtmlDocument得到的东西怎样变换呢? 我在局域网上,怎样通过程序知道我自已这台机器在INTERNET上的IP 日期控件的问题 关于mfc类的引用问题? sql server 2000/7.0 有什么优点?言者有分。 做中国的实况足球!成就中国的EA.SPORTS! 寻找UltraEdit编辑器的JSP关键字文件 ACCESS数据库访问密码问题和特殊键的屏蔽问题 thanks all ,bow 有谁可以给我一种打印连续走孔纸的方案!(最好是用PRITNER方法来写的) 好象 韩悄声 昨天又说错了,或者我听错了。 多表联接 可以在SELECT语句中调用存储过程吗? 找ICPC真题的参考答案和测试数据 哪位认识它:readme.eml(图表是一个打开的信封,白色) 我用别人提供的web service,做了一个世界杯实况查询系统! 我的php 用了session后, 就出先了问题, 有人可以告诉我是为什么吗? php+mysql如何检索百万级别的数据? 谁有打开dicom3.0格式文件的vb源吗,或者告诉小弟一下如何打开该文件? 高分相送... 给位兄弟,请问那有吞食天地-诸葛孔明传游戏(中文版)下载 做中国的实况足球!成就中国的EA.SPORTS! 趣味语文小故事要有题目【另外的】和它的含义和至少3个有趣的小故事非常感谢! 水的密度受不受温度的影响? 钛白粉为什么吃色 趣味语文的手抄报,除了趣味的歇后语,趣味的广告,趣味语文的的意义,趣味语文的笑话,趣味语文的故事,还能有什么? 质量受不受温度影响 国产钛白粉耐高温多少度的情况下不会变黄 四氟乙烯材料具体用在哪些行业?具体作用是什么?跟一般的塑料相比,有什么优越性 水和冰温度不同质量会发生改变么 微生物的生长曲线在污水处理中应用 石墨和四氟乙烯是一回事吗?请说明他们分别是说明 各有什么用处 好痒微生物在污水处理中的作用 钛白粉在陶瓷行业里的应用,我说的是抛光砖! 怎么去掉保温瓶的异味 何种微生物在污水处理中作用较好,希望详细说明 污水处理过程中微生物种类都有哪些? 新热水瓶有异味怎么处理 比尼龙耐高温的材料 意义和作用有什么区别? 用“电路检测器”怎么检测电路? 尼龙料如果经过反复注塑,其耐高温性还能够保持原来的耐温程度吗?是否有实际试验过得案例? "作用“跟意义”有什么区别?两个词语有什么差别 铅笔芯的化学名词 “目的”和“意义”有什么不同 请问作用、意义、影响有什么区别? 线代,线性代数, 生活的意义和目的是什么 暖水瓶里的瓶胆上度的一层白色金属是什么?我也记的是水银,但有剧毒,人都喝死了好不好 温度计在真空中可不可以测温度 萃取操作时,一定要选择有机萃取剂, 保温瓶的瓶胆是怎样保温的?它好象在瓶胆的最下面有个尖尖的东西,那是用来保温的吗?但它又是怎样做到保温的呢? 真空里的温度可以测量吗? 谁能告诉我“目的”和“意义”有什么区别= =刚刚学写策划书,写完“活动目的”发现还有一个“活动意义”,囧RZ.我咋感觉一个意思呢. 热水瓶的瓶胆怎么装 真空脱氯效果差的原因 真空脱氯温度的测量点在何处有时脱氯效果较差,真空度、温度、盐水流量都正常,有段时间使用亚硫酸的较多不知是什么原因?想问一下贵公司真空脱氯温度测量点安装 甲容器里有3千克含盐10%的盐水,乙容器里有7千克含盐15%盐水把两个容器里的盐水混合在一起,含盐率是百分甲容器里有3千克含盐10%的盐水,乙容器里有7千克含盐15%盐水,把两个容器里的盐水混 甲乙两个容器共有盐水2600毫升,从甲容器中取出1/4,从乙容器中取出1/5,结果两个容器共剩下2000毫升盐水 电池检测仪 甲容器里有5千克含盐10%的盐水,乙容器里有5千克含盐15%的盐水,把两个容器里的盐水混在一起,含盐率是百分之几? 甲,乙共有盐水2600毫升,甲容器中取出1/4,从乙容器中取出1/5,还剩下2000毫升盐水,甲乙两个容器原各 RTBT-8630 蓄电池内阻测试仪怎么使用? 格林的电子烟含有尼古丁吗?买了支格林的电子烟,官网称电子雾化器中的是烟碱,可网上说烟碱就是尼古丁,如果是这样,岂不是说格林的电子烟是含尼古丁的? 甲乙两个容器共有盐水2600毫升,从甲容器中取出¼(四分之一),从乙容器中取出1/5(五分之一),结果两个容器共剩下2000毫升盐水,甲乙两个容器原来各有盐水多少毫升?不要方程,不要! 水沸腾的温度为什么受地点的影响 电动车电瓶检测仪我用电动车检测仪放电【20AH】为什么放电后得出的容量是20.15 AH 22.72 AH 22.73 AH 22.70AH怎么大于20AH 甲,乙共有盐水2600毫升,甲容器中取出1/4,从乙容器中取出1/5,还剩下2000毫升盐水,甲乙各有盐水甲,乙共有盐水2600毫升,甲容器中取出1/4,从乙容器中取出1/5,还剩下2000毫升盐水,甲乙两个容器原各 恒温恒容的密闭容器,发生N2+3H2可逆号2NH3,当容器内气体总物质的量保持不变时,是否平衡?容器内气体总压强保持不变时,是否平衡?如果反应变成H2+I2可逆号2HI时,其他条件不变,会怎样? 电动车蓄电池检测仪(也就是带负载的电压表) 负荷是多少欧姆? 甲,乙共有盐水2600毫升,甲容器中取出1/4,从乙容器中取出1/5,还剩下2000毫升盐水,甲乙各有盐水多少? 求800字的评论性文章.暑假关注国家和世界大事,选择两个焦点问题写成800字的评论性文章,不得抄袭! 这是什么花呀,求俗名与学名? 目的和意义的区别 请教这是什么花,学名以及俗名不是铜钱草,铜钱草叶柄在叶子中央,叶子圆形,叶缘是带不明显的波浪锯齿的,这种花叶柄在靠近叶缘的地方,而且叶子全缘,叶形不是很圆,带点叶尖的 油、电线、电器起火时,能用水浇吗? 真空中有温度吗? 请问有人知道这个是什么花么?最好是学名,俗名也行, 家用电器着火会导致爆炸吗好比多用电炒锅热油的时候突然起火,如救火不及时会导致爆炸吗,类似的家用电器会吗? 目的、意义、任务的区别是什么? 16摄氏度声音在空气中的速度 蓄电池测试仪 哪里买性价比高. 盐水的密度1.2x10^3kg/m^3是冰的密度是0.8x10^3kg/m^3.那么将盐水冻成冰,这种盐水冰块的密度是多少?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘