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 

　　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＋″ ′ ″) 

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