If MessageBox.Show("是否复制数据同时清空本表?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question)=DialogResult.Yes Then
Dim qdrq As Date=e.Form.controls("DateTimePicker2").value
Dim psgs As String=e.Form.controls("DropBox1").value
Dim Sum1 As Double = Tables("登记表").Compute("Sum(采购金额)","清单日期=#"& qdrq &"# and 配送公司='"& psgs &"'")
Dim sum01 As Double=Format(Sum1,"0.00")
Dim Sum2 As Double = Tables("录入表").Compute("Sum(采购金额)","清单日期=#"& qdrq &"# and 配送公司='"& psgs &"'")
Dim Sum02 As Double=Format(Sum2,"0.00")
Dim gs1 As Integer = Tables("登记表").Compute("Count(目录编号)","清单日期=#"& qdrq &"# and 配送公司='"& psgs &"'")
Dim gs2 As Integer = Tables("录入表").Compute("Count(目录编号)","清单日期=#"& qdrq &"# and 配送公司='"& psgs &"'")
'----------Sum01=10007.68 Sum02=58246.97 gs1=5 gs2=5
If Sum01<>Sum02 And gs1<>gs2 Then
.........
'为什么不执行这里的代码
Else
messagebox.show("该公司有相同金额的清单,是否重复录入?")
End If
End If