表
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