Dim dr As DataRow = e.DataRow
Dim filter As String = "1=1"
If dr.IsNull("作业日期") Then
filter &= " and 作业日期 is null"
Else
filter &= " and 作业日期 = '" & dr("作业日期") & "'"
End If
If dr.IsNull("加硫炉号") Then
filter &= " and 加硫炉号 is null"
Else
filter &= " and 加硫炉号 = '" & dr("加硫炉号") & "'"
End If
If dr.IsNull("管理号码") Then
filter &= " and 管理号码 is null"
Else
filter &= " and 管理号码 = '" & dr("管理号码") & "'"
End If
If dr.IsNull("管理号码1") Then
filter &= " and 管理号码1 is null"
Else
filter &= " and 管理号码1 = '" & dr("管理号码1") & "'"
End If
If dr.IsNull("生产数") Then
filter &= " and 生产数 is null"
Else
filter &= " and 生产数 = '" & dr("生产数") & "'"
End If
If dr.IsNull("开始时间") Then
filter &= " and 开始时间 is null"
Else
filter &= " and 开始时间 = #" & new Date(1900,1,1,dr("开始时间").Hour,dr("开始时间").minute,dr("开始时间").second) & "#"
End If
If dr.IsNull("结束时间") Then
filter &= " and 结束时间 is null"
Else
filter &= " and 结束时间 = #" & new Date(1900,1,1,dr("结束时间").Hour,dr("结束时间").minute,dr("结束时间").second) & "#"
End If
If e.DataTable.Compute("Count([_Identify])",filter) > 1 Then
Dim Result As DialogResult
Result = MessageBox.Show("请确认这条数据是否已重复输入,否则将删除此条记录?", "提示", MessageBoxButtons.RetryCancel,MessageBoxIcon.Error)
If Result = DialogResult.Retry Then
Tables("二次加硫").Current.Save()
Else
Dim Index As Integer
Index = Tables("二次加硫").FindRow(e.DataRow) '找出此行在销售数据Table中的位置
If Index > -1 Then '如果找到此行
Tables("二次加硫").Position = Index '将焦点定位到此行
End If
MainTable = Tables("二次加硫") '选择销售数据表作为主表.
Tables("二次加硫").Current.Delete
e.Cancel = True '取消存盘
End If
End If
谢谢，我这样写可以吧
加好友 
发短信
Post By：2015/7/6 15:29:00 [显示全部帖子]
此主题相关图片如下：无标题.png
