Dim nms As List(of String) = DataTables("统计").GetValues("批次")
For Each nm As String In nms
Dim dr As DataRow = DataTables("结算").AddNew()
dr("批次") = nm
dr("金额") = DataTables("统计").Compute("Sum(金额)", "批次 = '" & nm & "'")
dr("份数") = DataTables("统计").Compute("Sum(份数)", "批次 = '" & nm & "'")
dr("人数") = DataTables("统计").Compute("Count(姓名)", "批次 = '" & nm & "'")
dr("每份") = (dr("金额")) / (dr("份数"))
Next
以上是我根据逻辑列的查询修改代码，我想加上一个判断， 结算 表里面批次列的值跟 统计 表里批次列的值相同，就不会再新增一行统计批次列的数据。
大大帮我看下有必要那么修改么？？ 还是我在 结算 表里面 批次 列在保存或者关闭的时候判断 批次列 的值是否重复会比较合理点？
加好友 
发短信
Post By：2018/11/26 20:43:00 [只看该作者]
