Foxtable(狐表)用户栏目专家坐堂 → [求助] 禁止发货地址不同使用相同BOX


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

主题:[求助] 禁止发货地址不同使用相同BOX

帅哥哟,离线,有人找我吗?
sanny
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
[求助] 禁止发货地址不同使用相同BOX  发帖心情 Post By:2020/1/18 11:38:00 [只看该作者]

你好,老师,

 

请问 如何禁止发货地址不同使用相同BOX,如图,感谢。


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:禁止重复.foxdb


 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/18 12:00:00 [只看该作者]

参考:http://www.foxtable.com/webhelp/topics/2481.htm

If e.DataCol.Name = "BoxNo" Then
    If e.DataRow.IsNull("地址") = False
        Dim dr As DataRow
        dr = e.DataTable.Find("BoxNo = '" & e.NewValue & "' and 地址 <> '" & e.DataRow("地址") & "'")
        If dr IsNot Nothing Then
            MessageBox.Show("BoxNo被别人用了!")
            e.Cancel = True
        End If
    End If
ElseIf e.DataCol.Name = "地址" Then
    Dim dr As DataRow
    dr = e.DataTable.Find("BoxNo = '" & e.DataRow("BoxNo") & "' and 地址 <> '" & e.NewValue & "'")
    If dr IsNot Nothing Then
        MessageBox.Show("BoxNo被别人用了!")
        e.Cancel = True
    End If
End If

 回到顶部
美女呀,离线,留言给我吧!
susanhe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:312 积分:2477 威望:0 精华:0 注册:2018/11/22 20:30:00
  发帖心情 Post By:2020/1/18 12:53:00 [只看该作者]

 

[此贴子已经被作者于2020/1/18 12:58:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
sanny
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:795 积分:5880 威望:0 精华:0 注册:2018/11/3 8:24:00
  发帖心情 Post By:2020/1/18 13:00:00 [只看该作者]

谢谢,老师,因为这样一加对表中所有的记录都生效了。

 

可不可以用区域来进行限制,如图,只要在同一区域中的就执行这个。不同区域还是可以用相同的BOX号。麻烦了。


图片点击可在新窗口打开查看此主题相关图片如下:捕获.jpg
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/1/18 14:22:00 [只看该作者]

加多一个条件就不会了?

dr = e.DataTable.Find("BoxNo = '" & e.NewValue & "' and 地址 <> '" & e.DataRow("地址") & "' and 区域 ='xx参考地址用法自己改改xx'")

 回到顶部