以下是引用sdta在2014-12-15 15:59:44的发言:
* 排序按钮代码
Local Apx[3]
With ThisForm
Apx[1]=.Text1.Value
Apx[2]=.Text2.Value
Apx[3]=.Text3.Value
=Asort(Apx)
.Label1.Caption=Transform(Apx[1])
.Label2.Caption=Transform(Apx[2])
.Label3.Caption=Transform(Apx[3])
.Refresh
EndWith
Apx什么意思?在帮助文件中找不到* 排序按钮代码
Local Apx[3]
With ThisForm
Apx[1]=.Text1.Value
Apx[2]=.Text2.Value
Apx[3]=.Text3.Value
=Asort(Apx)
.Label1.Caption=Transform(Apx[1])
.Label2.Caption=Transform(Apx[2])
.Label3.Caption=Transform(Apx[3])
.Refresh
EndWith