Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用select方法查找重复值，并提示


  共有2174人关注过本帖树形打印复制链接

主题：用select方法查找重复值，并提示
帅哥哟，离线，有人找我吗？
蓝蚂蚁
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：672 积分：7909 威望：0 精华：0 注册：2016/6/11 11:10:00 		用select方法查找重复值，并提示  发帖心情 Post By：2018/8/7 11:25:00 [只看该作者]

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”的话就取消录入。请问老师代码该如何修改，谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 4 次数据查询