请高手帮忙？

Question

我想在表格中的第二列查找是否有相同的项，如果相同删除现同的项，把第五列数相加，相同行删除，但是我删除时总是出错，可能是删除行的错误吧？那怎么修改啊？请高手帮忙？明天就要的跳楼的难题？
With Grid2
        '外层循环
        For i = 1 To .Rows - 1
           findstr = .TextMatrix(i, 2)
             For j = i + 1 To .Rows - 1
                  If findstr = .TextMatrix(j, 2) Then
                     .TextMatrix(i, 5) = Val(.TextMatrix(i, 5) + .TextMatrix(j, 5))   
            '         .RemoveItem (j)                     '删除相同行
                  End If
             Next j
        
        Next i
  End With

Answer 1

1.记录一条相同的记录rsold
2.你利用联接进行求和插入一条新的记录如cn.execute "insert into table (yourfield1,yourfield2,....) select sum(yourfield1),sum(yourfield2),sum(.....) from table where yourfield1=yourvalue1 ......"
3.利用联接删除与当前记录所有相同的记录,如 cn.execute "delete from table where yourfield1=rsold(yourfield) and ...."
4.重新获取当前rs,执行rs.requery(不知写错没...:))

Answer 2

With Grid2
        '外层循环
        For i = .rows-1 To 1
           findstr = .TextMatrix(i, 2)
             For j = i + 1 To .Rows - 1
                  If findstr = .TextMatrix(j, 2) Then
                     .TextMatrix(i, 5) = Val(.TextMatrix(i, 5) + .TextMatrix(j, 5))   
            '         .RemoveItem (j)                     '删除相同行
                  End If
             Next j
        
        Next i
  End With倒过来For i = .rows-1 To 1