怎样用程序实现过虑查询中的重复记录？？

我是这样写的：  
  string   cpgg01,cpgg02  
  long   k,row01  
  dw_1.settrans(sqlca)  
  dw_1.retrieve()  
  row01=dw_1.rowcount()  
  if   row01<>0   then    
  for   k=2   to   row01  
  cpgg01=dw_1.object.data[k,3]  
  cpgg02=dw_1.object.data[k   -   1,3]  
  if   pos(cpgg01,cpgg02,1)=1   and   len(cpgg01)=len(cpgg02)   then  
  dw_1.deleterow(1)  
  end   if  
  next  
  end   if  
  我编程水平很差，不要笑我  
  如果要满足两个字段同时相等再删  
  该怎么判断？ 问题点数：50、回复次数：6Top

1 楼huangxinru（键盘手）回复于 2002-09-24 15:51:14 得分 0

可以直接用distinct呀Top

2 楼ivy_live521（妞妞）回复于 2002-09-24 16:03:57 得分 0

用distinct查完的结果再输出excel，又成没过虑的样子了  
  我想试试看用程序实现  
  哪位好心人，指点一下  
   
  我写的程序不对，报错了：（Top

3 楼qqqdong（）回复于 2002-09-24 16:09:54 得分 50

Long   k  
  dw_1.SetTrans(SQLCA)  
  dw_1.Retrieve()  
  IF   dw_1.RowCount()   =   0   THEN   RETURN  
  k   =   2  
  DO   WHILE   k   <=   dw_1.RowCount()  
        IF   dw_1.Object.Data[k,3]   =   dw_1.Object.Data[k   -   1,3]   THEN  
              dw_1.DeleteRow(k)  
        ELSE  
              k   ++  
        ENDIF  
  LOOP  
  Top

4 楼qqqdong（）回复于 2002-09-24 16:21:26 得分 0

IF   dw_1.RowCount()   =   0   THEN   RETURN  
  改为  
  IF   dw_1.RowCount()   <=   1   THEN   RETURN  
  Top

5 楼windljf（精神领袖）回复于 2002-09-24 16:27:39 得分 0

绝对不必要写程序实现的啊，用最简单的方法实现所需的功能。这是编程的根本思想。一句distinct足以实现你的要求！！大不了再建一个存储对象临时存放数据，  
  何必辛辛苦苦编一段程序呢？？？Top

6 楼ivy_live521（妞妞）回复于 2002-09-24 16:32:37 得分 0

谢谢！！！！  
   
  结贴^_^Top

相关问题

• cpgg
• dw
• 程序
• row

• 帖主：ivy_live521
• qqqdong

• PowerBuilder类图书
• PowerBuilder类源码下载