主题：[求助]怎么样防止重复记录

If e.DataCol.Name = "完成" AndAlso e.DataRow("完成") = True Then

     Dim dr As DataRow = DataTables("当日业务").AddNew

     For Each dc As DataCol In DataTables("当日业务").DataCols

         dr(dc.Name) = e.DataRow(dc.Name)

         DataTables("当日业务").Save()

     Next

e.DataRow.delete

End If

当前表字段的值为：完成，将数据复制到另外一个表表名：当日业务。

但是如果是电脑突然关闭或者程序异常退出，就会在当日业务表中产生相同的两条重复数据。