If Tables("动物产地检疫工作记录").Current Is Nothing Then
Tables("动物产地检疫工作记录").AddNew()
Dim u As Row =Tables("动物产地检疫工作记录").Current
u("监督所名称")= User.Group
Tables("动物产地检疫工作记录").Current("基本情况_检疫时间")= Date.Today
Else
Dim r As Row = Tables("动物产地检疫工作记录").Current
Dim fdr As DataRow = DataTables("产地检疫申报").Find("申报单编号 = '" & r("申报单编号") & "'")
If fdr IsNot Nothing Then
Dim psum As Double = DataTables("产地检疫申报").Compute("sum(数量)", "申报单编号 = '" & r("申报单编号") & "'")
Dim sum As Double = DataTables("动物产地检疫工作记录").Compute("sum(基本情况_数量)", "申报单编号 = '" & r("申报单编号") & "'")
If sum > psum Then
MessageBox.Show("对不起,动物产地检疫工作记录数量超过了屠宰检疫申报的数量!请重新操作.","提示!")
Else
DataTables("动物产地检疫工作记录").Save()
MessageBox.Show("动物产地检疫工作记录数据成功保存!","提示!")
Tables("动物产地检疫工作记录").AddNew()
Dim v As Row =Tables("动物产地检疫工作记录").Current
v("监督所名称")= User.Group
Tables("动物产地检疫工作记录").Current("基本情况_检疫时间")= Date.Today
End If
Else
MessageBox.Show("申报单编号无效","提示!")
End If
End If