排序问题,请帮忙看看!
Select * From 产品代码 Order By 产品编号 Asc Into Cursor cpdmb1Set 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,"提示!")
为什么老提示文件正在被使用?我在删除里就是这样弄得怎么没事啊?