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  &"\'")

    If Sum01<>Sum02 And gs1<>gs2 Then

     .........

    Else

        messagebox.show("该公司有相同金额的清单,是否重复录入?")

    End If

End If