*sort
*zw    主文件DBF路径文件名
*fw    生成副文件DBF路径文件名
*px    生成文件的排序字段
*sj    排序升降    1 为升，2为降，不写为降
Parameters zw,fw,px,sj
If !Empty(zw)
    If File(zw)
        Set Exclusive On
        *Try
            Use (zw)  
            if sj=1        
            *messagebox (zw,fw)   
                messagebox ("sort on "+px+"/A to "+fw)
                sort on "+px+" to fw
            else if sj="2" or sj=""
            *messagebox ("333","444")   
                sort to zw on "+px+"/D
            endif
            Use
        *messagebox ("555","666")
        dele file zw
        rename fw to zw

        *Catch
        *    Messagebox ("请先关闭文件：'"+zw+"'"+Space(5),48,'信息提示')
        *Endtry
    Else
        Messagebox ("指定的文件：'"+zw+"'不存在!"+Space(5),48,'信息提示')
    Endif
Endif

主要是想做个排序功能的EXE,可是每次到sort on这里就说语句出错,单独在命令窗口使用的时蛮好的,求高手帮忙.

这是我写的一个EXE,用于VB中引用.PX是一个参数变量.问题以经解决,结贴.