甜老师，有时会重复加载好几天的数据，帮看一下，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 甜老师，有时会重复加载好几天的数据，帮看一下，谢谢

共有2536人关注过本帖树形打印复制链接主题：甜老师，有时会重复加载好几天的数据，帮看一下，谢谢

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/10 16:41:00 [显示全部帖子]

是【收款对账表】表的数据重复，还是【表A】的数据重复？

如果重复，是不是你重复执行了代码，重复添加了多次数据导致的？

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/10 17:58:00 [显示全部帖子]

For Each fdr As DataRow In dt.Select("支付方式 like '月付%'")

If i = 0 Then

drt = Tables("收款对账表").current

Else

drt = Tables("收款对账表").addnew(1)

End If

drt("编号") = fdr("编号")

drt("客户信息") = fdr("客户信息")

drt("支付方式") = fdr("支付方式")

drt("服务内容") = fdr("服务内容")

drt("服务日期") = fdr("服务日期")

drt("价格") = fdr("价格")

i +=1

改成

For Each fdr As DataRow In dt.Select("支付方式 like '月付%'")
    Dim dr As DataRow = DataTables("收款对账表").Find("编号 = '" & fdr("编号") & "'")
    If dr Is Nothing Then
        dr = DataTables("收款对账表").addnew(1)
    End If
    dr("编号") = fdr("编号")
    dr("客户信息") = fdr("客户信息")
    dr("支付方式") = fdr("支付方式")
    dr("服务内容") = fdr("服务内容")
    dr("服务日期") = fdr("服务日期")
    dr("价格") = fdr("价格")
Next