Select * From 产品代码 Order By 产品编号 Asc Into Cursor cpdmb1
Set Exclusive On
Select 产品代码
Use
Use 产品代码 In 0 Exclusive
Zap                  
Set Exclusive Off
Append From cpdmb1      
Thisform.Activate
USE
Select 产品代码
Thisform.Refresh
Thisform.Grid1.SetFocus
Thisform.Grid1.Refresh
Messagebox("数据已成功排序完毕！",48,"提示！")
为什么老提示文件正在被使用？我在删除里就是这样弄得怎么没事啊？

也许加上ThisForm.Grid1.RecordSource=''会好一点吧（没有验证过）

Thisform.Activate
*（这里加上）
close table
USE

无论是单机版, 还是多用户版, 都不是像你这样使用库文件的~  你这是人为复杂化, 而且代码中存在其它上下衔接错误, 未能正确反映你本想表达的意思~

就按你这样使用库文件的方法(复杂一点就复杂一点), 代码如下(适用于单机和多用户):

ThisForm.Grid1.RecordSource=''
Select 产品代码
use 产品代码 excl
sort to cpdmb1 on 产品编号
zap
Append From cpdmb1
use 产品代码
ThisForm.Grid1.RecordSource='产品代码'
Thisform.Grid1.SetFocus
Thisform.Grid1.Refresh
Messagebox("数据已成功排序完毕！",48,"提示！")

一般来说，数据文件最好不要排序，让它保持原始状态。仅在查询时按查询的需要排序。
Select 产品代码
INDEX ON 产品编号 TAG 产品编号
Thisform.Grid1.Refresh
Messagebox("数据已成功排序！",48,"提示！")

如果要导出，则按需要排序
sort to cpdmb1 on 产品编号
Messagebox("数据已成功排序导出！",48,"提示！")

谢谢各位老师了，对不起大家啊，我一时脑筋没转过来panpende一句话让我恍然大悟，原来我钻牛角尖了，呵呵。还是练习少啊，请大家多提意见想法，再次感谢各位！