把 转换成
数据:

 DO WHILE NOT EOF()

  SCAN FOR  len(ALLTRIM(ttt.编号2))=0
     SKIP
m=编号2
SKIP -1
REPLACE 编号2 WITH m
SKIP
DELETE
PACK
  ends

  endd
不是很明白写了个这个看是不是你要的

VFP版本

CLOSE TABLES
IF FILE([TTTT.DBF])
   ERASE TTTT.DBF
ENDIF
SET SAFETY OFF
SELECT 2
USE TTT
IF NOT FILE([TTTT.DBF])
   COPY STRUCTURE TO TTTT
   SELECT 1
   USE TTTT
ENDIF
SELECT 2
LOCAL DHRQ,KHMC,PM,BH2,MS2
DHRQ={}
STORE [] TO KHMC,PM,BH2,MS2
SCAN
   BH2=编号2
   MS2=码数2
   SCATTER TO ATT
   IF !EMPTY(B.编号)
      INSERT INTO TTTT FROM ARRAY ATT
      NREC=RECNO()
      DHRQ=ATT(1)
      KHMC=ATT(2)
      PM=ATT(3)
   ELSE
      IF 订货日期=DHRQ AND ALLTRIM(客户名称)==ALLTRIM(KHMC) AND ALLTRIM(品名)==ALLTRIM(PM)
         GO NREC
         REPLACE 编号2 WITH BH2,码数2 WITH MS2 IN A
         GO NREC+1
      ELSE
         INSERT INTO TTTT FROM ARRAY ATT
      ENDIF
   ENDIF
ENDSCAN
SELECT 1
BROWSE

看着这些数据的处理，感觉这个表文件设计得不是很合理。

谢谢大家,可以了