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

一、 准备工作 　　 设计如图1所示的示例窗口。为了更好地比较三种不同的方法，dw—1中的数据来自两个表student和class。student表中包含四个字段sid(学号)、sname(姓名)、saddr(住址)和cid(班号)，class表中包含两个字段cid(班号)和cname(班级名称)。 图1： 二、三种方法的源程序 　　 三种方法中的“执行”按钮的代码分别为： 　　 方法1： 　　 用SetSQLselect() 　　 string ls—oldsql,ls—newsql,ls—order ls—column 　　 ls—oldsql=dw—1.getsqlselect() 　　 choose case ddlb—1.text 　　 case ″学号″ls—column=″sid″ 　　 case ″姓名″ls—column=″sname″ 　　 case ″住址″ls—column=″saddr″ 　　 case ″班号″ls—column=″class.cid″ 　　 case ″班级名称″ ls—column=″cname″ 　　 end choose 　　 if rb—1.checked then ls—order=″ASC″ 　　 else ls—order=″DESC″ 　　 end if 　　 ls—newsql=ls—oldsql＋″ ORDER BY ″＋ ＆ 　　 ls—column＋″ ″＋ls—order 　　 if dw—1.setsqlselect(ls—newsql)=－1 then 　　 messagebox(″警告″,″数据设置失败″,stopsign!) 　　 else dw—1.settransobject(sqlca) 　　 dw—1.reset() 　　 dw—1.retrieve() 　　 dw—1.setsqlselect(ls—oldsql) 　　 end if 　方法2： 　　 用describe()和modify() 　　 string ls—mod, ls—order,ls—old,ls—column 　　 ls—old=dw—1.describe(′datawindow.table.select′) 　　 dw—1.settransobject(sqlca) 　　 choose case ddlb—1.text 　　 case ″学号″ls—column=″sid″ 　　 case ″姓名″ls—column=″sname″ 　　 case ″住址″ls—column=″saddr″ 　　 case ″班号″ls—column=″class.cid″ 　　 case ″班级名称″ ls—column=″cname″ 　　 end choose 　　 if rb—1.checked then ls—order=″ASC″ 　　 else ls—order=″DESC″ 　　 end if 　　 ls—mod=″datawindow.table.select=′ ″＋ls—old＋＆ 　　 ′ORDER BY ″ ′＋ls—column＋′ ″ ′＋ls—order＋″ ′ ″ 　　 dw—1.modify(ls—mod) 　　 dw—1.retrieve() 　　 dw—1.modify(″datawindow.table.select= ＆ 　　 ′ ″＋ls—old＋″ ′ ″) 　　 方法3： 　　 用setsort()和sort() 　　 string ls—sort,ls—order,ls—column 　　 choose case ddlb—1.text 　　 case ″学号″ ls—column=″＃1″ 　　 case ″姓名″ ls—column=″＃2″ 　　 case ″住址″ ls—column=″＃3″ 　　 case ″班号″ ls—column=″＃4″ 　　 case ″班级名称″ ls—column=″＃5″ 　　 end choose 　　 if rb—1.checked then ls—order=″A″ 　　 else ls—order=″D″ 　　 end if 　　 ls—sort=ls—column＋′′＋ls—order 　　 dw—1.setsort(ls—sort) 　　 dw—1.sort() 三、三种方法的比较 　　 1.第一种和第二种方法要求数据窗口在生成时是无序的，第三种方法无此要求。 　　 2.对于来自不同表单的相同的列名(如student.cid、class.cid)用