我是菜鸟，很穷，已经每钱了，请各位大侠帮帮忙！

现在有一个rptdata的销售记录数据集，里面有money和time字段，每天可以有多次销售，现想显示每天的销售记录，该如何做？谢谢 
intK = rptdata.RecordCount
  For intI = 0 To intK - 1
    rptdata.Move intI
    temp = rptdata("membertime")
    For intJ = intI + 1 To intK - 1
      rptdata.Move intJ
      If rptdata("membertime") = temp Then
*        tempcost = rptdata("money")
         rptdata.Delete
         rptdata.Move intI
         rptdata("money") = tempcost + rptdata("money")
         intK = intK - 1
      End If
    Next intJ
  Next intI
错误在*行，说行句柄引用了一个已被删除的行或被标识删除的行