以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用select方法查找重复值，并提示  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=123052)
--  作者：蓝蚂蚁
--  发布时间：2018/8/7 11:25:00
--  用select方法查找重复值，并提示

DataColChanging中代码如下：

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”的话就取消录入。请问老师代码该如何修改，谢谢
--  作者：有点甜
--  发布时间：2018/8/7 12:06:00
--  
Select Case e.DataCol.Name
    Case "批号"
        Dim Result As DialogResult
        With DataTables("商品表")
            Dim drs As List(Of DataRow)
            drs = .Select("批号 = \'" & e.DataRow("批号") & "\'")
             If drs.count > 1 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