请那个人给我一个VFP的排序程序

来源：百度知道 编辑：UC知道 时间：2024/05/04 16:25:21
谢谢

Parameters Zd

Ziduan=iif(type('Zd')='C',Zd,Sys(18))

Push key clear
define windows Sort title'[顺序重排]' From 8,24 to 16,54 Shadow color Scheme 7
activate windows Sort
@1,6 Get Sxun Picture'@*Rv \<A.按升序;\<B.按降序'default 1
@4,4 Get XzSt Picture'@*h \<1.确定;\?\<2.取消' default 1 Size 1,10
@6,6 Say'排序字段: '+Ziduan
read cycl
release windows Sort

if XzSt=2.or.Empty(Ziduan).or.!Excluse()
pop key
return
endif
Sxun =iif(Sxun=1,'/A','/D')
mSort='Sort on '+Ziduan+Sxun+' to Lsdbf.dbf'

wait'正在重排 ...'windows Nowait
Set Filter to
Set Order to
&mSort
Zap
append From Lsdbf.dbf
erase Lsdbf.dbf
erase Lsdbf.fpt
wait'排序完成.' windows Nowait
pop key

Return

ffsd

VFP....>....??!!!$##%@@$!!

vvst

<