SET SAFETY OFF
SET DEFAULT TO [g:\test]

**建立数据
CREATE TABLE 编码(编码 C(6),名称 C(12))
FOR i=1 TO 20
    bm=PADL(i,6,'0')
    mc='名称'+bm
    INSERT INTO 编码(编码,名称) values(bm,mc)
ENDFOR
USE &&关闭刚建立的表

CREATE TABLE 年出入库(编码 C(6),名称 C(10),入库日期 D,出库日期 D,数量 N(5))
USE &&关闭刚建立的表


**本题开始

*USE 编码 IN 0 EXCLUSIVE &&独占方式打开表 &&用 Select 语句用到的表，可以不预先打开，
USE 年出入库 IN 0 EXCLUSIVE &&独占方式打开表

Select *, Val(编码) As 排序 From 编码 Into Cursor tmp_表1  &&按编码排序

SELECT 年出入库
ZAP
APPEND FROM DBF("tmp_表1")

BROWSE

我又保存数据测试了几次,不出错,整洁一目了然,又学了一招,谢了

如果你的 年出入库 与 编码 库的数据结构是一样的，只要一条命令即可：

Select *, Val(编码) As 排序 From 编码 Into Table 年出入库  && 按编码排序

两个结构不同,
Use 年出入库
Zap
 Insert Into 年出入库 Select *, Val(编码) As 排序 From 编码
是最好用的,只有三句

怎么不一样？你的编码库肯定是年出入库库的子集，即年出入库包含了所有的编码库的字段，你可以延伸或扩展你的年出入库，比如：

Select *, Val(编码) As 排序, Space(10) As 部门, Space(10) As 操作员, Space(10) As 日期 From 编码 Into Table 年出入库  && 按编码排序

这样一条语句应该更简洁一些，你自己看着办。

不好意思,有些定义还不清楚,我在试试看,谢