表:字段1 数量 结存
aaa 10 10
aaa 20 30
bbb 10 10
如何能按字段1分组结出每一行的结存数,代码怎么写?
*!* [求助]菜鸟提问:一个循还问题表:字段1 数量 结存
*!* aaa 10 10
*!* aaa 20 30
*!* bbb 10 10
*!* 如何能按字段1分组结出每一行的结存数,代码怎么写?
SET TALK OFF
SET SAFETY OFF
CLOSE ALL
IF FILE("结存.DBF")
USE 结存.DBF
ELSE
CREATE TABLE 结存 (字段1 C(3),数量 N(4),结存 N(4))
INSERT INTO 结存 (字段1,数量,结存) VALUES ("aaa",10,0)
INSERT INTO 结存 (字段1,数量,结存) VALUES ("aaa",20,0)
INSERT INTO 结存 (字段1,数量,结存) VALUES ("bbb",10,0)
ENDIF
INDEX ON 字段1 TO ZD.IDX
GO TOP
C=SPACE(LEN(字段1))
J=0
DO WHILE !EOF()
IF 字段1=C
J=J+数量
ELSE
C=字段1
J=数量
ENDIF
REPLACE 结存 WITH J
SKIP
ENDDO
LIST