Select Case e.DataCol.Name
Case "批号"
Dim Result As DialogResult
With DataTables("商品表")
Dim drs As List(Of DataRow)
drs = .Select("批号 = '" & e.DataRow("批号") & "'")
If drs IsNot Nothing Then‘如果找到的话
Result=MessageBox.Show("'"& e.DataRow("批号") &"'重复! 共有"& drs.count &"处重复，是否继续录入？", "提示"）
If Result = DialogResult.Yes Then
e.DataRow("批号")=" & e.NewValue & "
Else
e.Cancel = True
End If
End If
End With
End Select
在录入批号时，对本表（即商品表）的批号进行查找，如果找到就提示该批号重复，有多少处重复，并提示是否继续录入，如果“yes”的话就录入，“no”的话就取消录入。请问老师代码该如何修改，谢谢
加好友 
发短信
Post By：2018/8/7 11:25:00 [显示全部帖子]
