pb中实现数据窗口动态排序的三种方法

《pb中实现数据窗口动态排序的三种方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、一、准备工作　　设计如图1所示的示例窗口。为了更好地比较三种不同的方法，dw—1中的数据来自两个表student和class。student表中包含四个字段sid(学号)、sname(姓名)、saddr(住址)和cid(班号)，class表中包含两个字段cid(班号)和cname(班级名称)。图1：二、三种方法的源程序　　三种方法中的“执行”按钮的代码分别为：　　方法1：　　用SetSQLselect()　　stringls—oldsql,ls—newsql,ls—orderls—column　　ls—

2、oldsql=dw—1.getsqlselect()　　choosecaseddlb—1.text　　case″学号″ls—column=″sid″　　case″姓名″ls—column=″sname″　　case″住址″ls—column=″saddr″　　case″班号″ls—column=″class.cid″　　case″班级名称″ls—column=″cname″　　endchoose　　ifrb—1.checkedthenls—order=″ASC″　　elsels—order=″DESC″

3、　　endif　　ls—newsql=ls—oldsql＋″ORDERBY″＋＆　　ls—column＋″″＋ls—order　　ifdw—1.setsqlselect(ls—newsql)=－1then　　messagebox(″警告″,″数据设置失败″,stopsign!)　　elsedw—1.settransobject(sqlca)　　dw—1.reset()　　dw—1.retrieve()　　dw—1.setsqlselect(ls—oldsql)　　endif　方法2：　　用describ

4、e()和modify()　　stringls—mod,ls—order,ls—old,ls—column　　ls—old=dw—1.describe(′datawindow.table.select′)　　dw—1.settransobject(sqlca)　　choosecaseddlb—1.text　　case″学号″ls—column=″sid″　　case″姓名″ls—column=″sname″　　case″住址″ls—column=″saddr″　　case″班号″ls—column=″cl

5、ass.cid″　　case″班级名称″ls—column=″cname″　　endchoose　　ifrb—1.checkedthenls—order=″ASC″　　elsels—order=″DESC″　　endif　　ls—mod=″datawindow.table.select=′″＋ls—old＋＆　　′ORDERBY″′＋ls—column＋′″′＋ls—order＋″′″　　dw—1.modify(ls—mod)　　dw—1.retrieve()　　dw—1.modify(″datawin

6、dow.table.select=＆　　′″＋ls—old＋″′″)　　方法3：　　用setsort()和sort()　　stringls—sort,ls—order,ls—column　　choosecaseddlb—1.text　　case″学号″ls—column=″＃1″　　case″姓名″ls—column=″＃2″　　case″住址″ls—column=″＃3″　　case″班号″ls—column=″＃4″　　case″班级名称″ls—column=″＃5″　　endchoose　　ifr

7、b—1.checkedthenls—order=″A″　　elsels—order=″D″　　endif　　ls—sort=ls—column＋′′＋ls—order　　dw—1.setsort(ls—sort)　　dw—1.sort()三、三种方法的比较　　1.第一种和第二种方法要求数据窗口在生成时是无序的，第三种方法无此要求。　　2.对于来自不同表单的相同的列名(如student.cid、class.cid)用第二种方法排序实现起来较麻烦，因为在用modify()函数时要特别注意引号的使用。但是第二

8、种方法比第一种方法的执行速度要快。　　3.第三种方法使用起来最方便，既可以引用列名也可引用列号(如＃4表示第四列)来指定序列。本文来自-编程入门网：http://www.bianceng.cn/pb/pb1.htm