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

在PowerBuilder中使用数据窗口检索到的数据往往是无序的，虽然可以通过设置Select语句实现排序的功能，但是数据窗口一旦生成都无法进行动态调整。笔者总结了在已经生成的数据窗口中实现动态排序的三种方法,现介绍给大家。

<ccid_nobr><b>一、 准备工作</b></ccid_nobr>

设计如图1所示的示例窗口。为了更好地比较三种不同的方法，dw—1中的数据来自两个表student和class。student表中包含四个字段sid(学号)、sname(姓名)、saddr(住址)和cid(班号)，class表中包含两个字段cid(班号)和cname(班级名称)。

<ccid_nobr></ccid_nobr>
图1

<ccid_nobr><font size="4"><font color="#a52a2a"><b>二、三种方法的源程序 </b></font></font></ccid_nobr>

三种方法中的“执行”按钮的代码分别为：

方法1：用SetSQLselect()

<ccid_nobr><table cellspacing="0" bordercolordark="#ffffff" cellpadding="0" width="580" bordercolorlight="black" border="1"><tbody><tr><td class="code" bgcolor="#e6e6e6"><font color="#a52a2a" size="4">string ls—oldsql,ls—newsql,ls—order ls—column <br>ls—oldsql=dw—1.getsqlselect() <br>choose case ddlb—1.text <br>case ″学号″ls—column=″sid″ <br>case ″姓名″ls—column=″sname″ <br>case ″住址″ls—column=″saddr″ <br>case ″班号″ls—column=″class.cid″ <br>case ″班级名称″ ls—column=″cname″ <br>end choose <br>if rb—1.checked then ls—order=″ASC″ <br>else ls—order=″DESC″ <br>end if <br>ls—newsql=ls—oldsql＋″ ORDER BY ″＋ ＆ <br>ls—column＋″ ″＋ls—order <br>if dw—1.setsqlselect(ls—newsql)=－1 then <br>messagebox(″警告″,″数据设置失败″,stopsign!) <br>else dw—1.settransobject(sqlca) <br>dw—1.reset() <br>dw—1.retrieve() <br>dw—1.setsqlselect(ls—oldsql) <br>end if </font></td></tr></tbody></table></ccid_nobr>

方法2：用describe()和modify()

<ccid_nobr></ccid_nobr>

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()

<ccid_nobr></ccid_nobr>

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()

<ccid_nobr><font size="4"><font color="#a52a2a"><b>三、三种方法的比较</b></font></font></ccid_nobr>

1.第一种和第二种方法要求数据窗口在生成时是无序的，第三种方法无此要求。

2.对于来自不同表单的相同的列名(如student.cid、class.cid)用第二种方法排序实现起来较麻烦，因为在用modify()函数时要特别注意引号的使用。但是第二种方法比第一种方法的执行速度要快。

3.第三种方法使用起来最方便，既可以引用列名也可引用列号(如＃4表示第四列)来指定序列。