|
DataTables("动物产地检疫工作情况日汇总表").DataRows.Clear()
Dim vals As List(Of String) = DataTables("动物产地检疫工作记录").GetValues("申报单编号","申报单编号 Is Not Null And 基本情况_检疫时间 >= '" & Date.Today & " 00:00:00' and 基本情况_检疫时间 < '" & Date.Today & " 23:59:59'")
For Each val As String In vals
Dim ndr As DataRow = DataTables("动物产地检疫工作情况日汇总表").AddNew()
ndr("申报单编号") = val
Dim cdjl As DataRow = DataTables("动物产地检疫工作记录").Find("申报单编号 = '"& val & "' and 基本情况_检疫时间 >= '" & Date.Today & " 00:00:00' and 基本情况_检疫时间 < '" & Date.Today & " 23:59:59'")
If cdjl IsNot Nothing Then
ndr("货主") = cdjl("基本情况_货主姓名")
ndr("动物种类") = cdjl("基本情况_动物种类")
ndr("检疫数量") = cdjl("基本情况_数量")
ndr("检疫地点") = cdjl("基本情况_检疫地点")
ndr("合格数") = cdjl("检疫结果处理_合格数")
ndr("《动物检疫合格证明》编号") = cdjl("检疫结果处理_出具动物检疫合格证明编号")
ndr("不合格数") = cdjl("检疫结果处理_检疫不合格_法定检疫对象_数量")+cdjl("检疫结果处理_检疫不合格_其它_数量")
ndr("《检疫处理通知单》编号") = cdjl("检疫结果处理_检疫不合格_出具检疫处理通知单编号")
ndr("目的地") = cdjl("基本情况_到达地点")
ndr("运载工具牌号") = cdjl("基本情况_运载工具牌号")
ndr("官方兽医姓名") = cdjl("官方兽医姓名")
ndr("备注") = cdjl("备注")
End If
Next
Dim hjdr As DataRow = DataTables("动物产地检疫工作情况日汇总表").AddNew
hjdr("货主") = "合计:" & DataTables("动物产地检疫工作情况日汇总表").GetValues("货主","货主 Is Not Null And 货主 <> '合计'").Count
hjdr("申报单编号") = DataTables("动物产地检疫工作情况日汇总表").GetValues("申报单编号","申报单编号 Is Not Null And 货主 <> '合计'").Count
hjdr("动物种类") = DataTables("动物产地检疫工作情况日汇总表").GetValues("动物种类","动物种类 Is Not Null And 货主 <> '合计'").Count
hjdr("检疫数量") = DataTables("动物产地检疫工作情况日汇总表").Compute("Sum(检疫数量)","货主 <> '合计'")
hjdr("检疫地点") = DataTables("动物产地检疫工作情况日汇总表").GetValues("检疫地点","检疫地点 Is Not Null And 货主 <> '合计'").Count
hjdr("合格数") = DataTables("动物产地检疫工作情况日汇总表").Compute("Sum(合格数)","货主 <> '合计'")
hjdr("《动物检疫合格证明》编号") = DataTables("动物产地检疫工作情况日汇总表").GetValues("《动物检疫合格证明》编号","《动物检疫合格证明》编号 Is Not Null And 货主 <> '合计'").Count
hjdr("不合格数") = DataTables("动物产地检疫工作情况日汇总表").Compute("Sum(不合格数)","货主 <> '合计'")
hjdr("《检疫处理通知单》编号") = DataTables("动物产地检疫工作情况日汇总表").GetValues("《检疫处理通知单》编号","《检疫处理通知单》编号 Is Not Null And 货主 <> '合计'").Count
hjdr("目的地") = DataTables("动物产地检疫工作情况日汇总表").GetValues("目的地","目的地 Is Not Null And 货主 <> '合计'").Count
hjdr("运载工具牌号") = DataTables("动物产地检疫工作情况日汇总表").GetValues("运载工具牌号","运载工具牌号 Is Not Null And 货主 <> '合计'").Count
hjdr("官方兽医姓名") = DataTables("动物产地检疫工作情况日汇总表").GetValues("官方兽医姓名","官方兽医姓名 Is Not Null And 货主 <> '合计'").Count
MainTable = Tables("动物产地检疫工作情况日汇总表")
|
加好友 
发短信
Post By：2014/5/13 8:01:00 [显示全部帖子]
