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

财,管家园,fs119.net

　　二、三种方法的源程序

财,软联盟,fs119.net

　　三种方法中的“执行”按钮的代码分别为： 财软.联盟.fs119.net

　　方法1：用SetSQLselect()

财软联.盟.fs119.net

　　stringls—oldsql,ls—newsql,ls—orderls—column
　　ls—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″
　　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)

财管家园,fs119.net

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

财软联盟,fs119.net

　　stringls—mod,ls—order,ls—old,ls—column
　　ls—old=dw—1.describe(′datawindow.table.select′)
　　dw—1.settransobject(sqlca)
window.height=li_height-2*(li_gd-li_y)
next
case5//closetype=5,从左右向中间挤压逐渐消失
li_cenx=li_xli_width/2
forli_gd=li_xtoli_cenxstep1
window.x=li_gd
window.width=li_width-2*(li_gd-li_x)
next
case6//closetype=6,从左上->右下
forli_gd=li_ytoli_heightli_ystep1
window.y=li_gd
window.height=li_heightli_y-li_gd
ifwindow.x<li_xli_widththen
window.x=li_x(li_gd-li_y)
else
window.x=li_xli_width
endif
ifwindow.width>0then
window.width=li_xli_width-window.x
else
window.width=0
endif
next
window.x=li_xli_width
window.y=li_heightli_y
window.width=0
window.height=0

财软联,盟,fs119.net