甜老师,有时会 重复 加载好几天的数据, 帮看一下,谢谢
放在窗口 afterload 事件里面的:
With DataTables("收款对账表")
Dim dt2 As Date = DataTables("收款对账表").Compute("max(服务日期)")
Dim dt3 As Date = Date.Today.adddays(1)
If DataTables("收款对账表").Compute("max(服务日期)") = Date.Today()
DataTables("收款对账表").load()
Tables("收款对账表").Sort = "服务日期"
Else
Dim cmd As new SQLCommand
cmd.C
cmd.CommandText = "Select[_identify],编号,服务日期,客户信息,支付方式,服务内容,价格 Flom {表A} where 日期 > #" & dt2 & "# And 日期 < #" & dt3 & "#"
Dim dt = cmd.ExecuteReader
Tables("收款对账表").addnew(1)
Dim i As Integer = 0
Dim drt As Row
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
Next
DataTables("收款对账表").load()
DataTables("收款对账表").save()
Tables("收款对账表").Sort = "服务日期"
End If
End With
现在的问题是, 收款对账表 已经有 到今天的数据, 但是打开运行后,又从表A里面加载了几天的数据包括今天的, 就重复了。
但是有时打开又不重复, 重复的情况一般是隔几天才打开,就会产生重复。
[此贴子已经被作者于2018/12/10 15:47:19编辑过]