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

一段按钮代码，复制数据填报窗口的一组文本框数据到数据汇总表，如何实现当欲复制的日期及单位的数据与数据汇总表重复时，不复制并提示，请各位老师帮助指教，谢谢！！

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目176.table

 

数据填报_Button1_Click

 

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 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("日期")= e.Form.Controls("TextBox10").Value

r("单位")= e.Form.Controls("TextBox11").Value