主题：[求助]不重复复制（已解决）

Dim zc As Integer = CInt(Forms("数据填报").Controls("TextBox1").Text)  '在册
Dim a As Integer =  CInt(Forms("数据填报").Controls("TextBox2").Text)  'A
Dim b As Integer =  CInt(Forms("数据填报").Controls("TextBox3").Text)  'B
Dim c As Integer =  CInt(Forms("数据填报").Controls("TextBox4").Text)  'C
Dim d As Integer =  CInt(Forms("数据填报").Controls("TextBox5").Text)  'D
If zc <> a+b+c+d Then
    MessageBox.Show("请检查评定等级是否遗漏","提示")
    Return
End If
Dim s1 As String = e.Form.Controls("TextBox10").Value
Dim s As String = e.Form.Controls("TextBox11").Value
Dim dr As DataRow = DataTables("数据汇总").Find("日期 = '" & s1 & "' And 单位 = '" & s & "'")
If dr IsNot Nothing Then
    MessageBox.Show("数据汇总表中已经存在 " & s1 & " 日 " & s & " 单位的数据!")
    Return
End If
Dim r As Row = Tables("数据汇总").Rows.AddNew()
r("在册人数")=e.Form.Controls("TextBox1").Value
r("A级人数")=e.Form.Controls("TextBox2").Value
r("B级人数")=e.Form.Controls("TextBox3").Value
r("C级人数")=e.Form.Controls("TextBox4").Value
r("D级人数")=e.Form.Controls("TextBox5").Value
r("日期")= s1
r("单位")= s

你上传窗口中的日期是TextBox所以我才用单引号，你改成#即可。