表的有关问题

表的问题？
表
dah rs
001 3
002 2
001 3
001 3
003 1
002 2
如果dah有重复的，只有一条记录有rs值，其他的替换成0.
结果
dah rs
001 3
002 2
001 0
001 0
003 1
002 0

[解决办法]

VB.NET code

CREATE CURSOR 表 (dah c(3),rs i)INSERT INTO 表 VALUES ("001",3)INSERT INTO 表 VALUES ("002",2)INSERT INTO 表 VALUES ("001",3)INSERT INTO 表 VALUES ("001",3)INSERT INTO 表 VALUES ("003",1)INSERT INTO 表 VALUES ("002",2)SELECT DAH FROM 表 GROUP BY DAH INTO CURSOR TABABROWSESCAN   NUM=0   SELECT 表   SCAN FOR DAH==ALLTRIM(TABA.DAH)      NUM=NUM+1      IF NUM>1         REPLACE RS WITH 0      ENDIF   ENDSCANENDSCANSELECT 表BROWSE