Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]同主编号下的子编号限制问题


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

主题：[求助]同主编号下的子编号限制问题
帅哥哟，离线，有人找我吗？
秋夜凉了
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：94 积分：772 威望：0 精华：0 注册：2020/4/13 7:39:00 		[求助]同主编号下的子编号限制问题  发帖心情 Post By：2022/6/26 10:17:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：001.jpg
图片点击可在新窗口打开查看
老师请问范围在fox中怎么写
同编号比如ABC2022  子件号1-5，如出现子件 2-5 也给他限制了。
子编号1-5是1，2，3，4，5个数的意思
Select Case e.DataCol.name
    Case "编号_批次", "编号_序列"
        Dim dr As DataRow = e.DataRow
        If dr.IsNull("编号_批次") = False AndAlso dr.IsNull("编号_序列") = False Then
            For Each s As String In dr("编号_序列").split(",")
                If s > "" Then
                    If e.DataTable.Compute("Count([_Identify])", "编号_批次 = '" & dr("编号_批次") & "' And 编号_序列 like '%" & s & "%'") > 1 Then
                        MessageBox.Show("已经存在相同子编号,请仔细核对产品子编号!", "友情提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
                        e.DataRow(e.DataCol.Name) = e.OldValue '取消输入
                        Exit For
                    End If
                End If
            Next
        End If
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/26 20:27:00 [只看该作者]

看看查询条件是什么？

msgbox("编号_批次 = '" & dr("编号_批次") & "' And 编号_序列 like '%" & s & "%'")
 回到顶部
帅哥哟，离线，有人找我吗？
秋夜凉了
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：94 积分：772 威望：0 精华：0 注册：2020/4/13 7:39:00 		  发帖心情 Post By：2022/6/27 8:36:00 [只看该作者]

条件就是同一批次下的序列号不允许有重复。
这序列号包含的是范围内，比如1-5，输入2-5就允许
 回到顶部
帅哥哟，离线，有人找我吗？
秋夜凉了
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：94 积分：772 威望：0 精华：0 注册：2020/4/13 7:39:00 		回复：（有点蓝）看看查询条件是什么？msgbox("编号_批...  发帖心情 Post By：2022/6/27 8:37:00 [只看该作者]

条件就是同一批次下的序列号不允许有重复。
这序列号包含的是范围内，比如1-5，输入2-5就不允许
[此贴子已经被作者于2022/6/27 8:36:56编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/27 8:40:00 [只看该作者]

为什么要dr("编号_序列").split(",")拆分，序列里面会有多个编号？

 回到顶部
帅哥哟，离线，有人找我吗？
秋夜凉了
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：94 积分：772 威望：0 精华：0 注册：2020/4/13 7:39:00 		回复：（有点蓝）为什么要dr("编号_序列").split(",")...  发帖心情 Post By：2022/6/27 8:58:00 [只看该作者]

是的，有很多个体

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：111390 积分：567014 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2022/6/27 9:34:00 [只看该作者]

If e.DataTable.Compute("Count([_Identify])", "编号_批次 = '" & dr("编号_批次") & "' And ','+编号_序列+',' like '%," & s & ",%'") > 1 Then

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询