Foxtable(狐表)用户栏目专家坐堂 → 请问当数据复制到统计表中有两列内容不一样时能否有窗口提示。


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

主题:请问当数据复制到统计表中有两列内容不一样时能否有窗口提示。

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


加好友 发短信
等级:童狐 帖子:235 积分:2054 威望:0 精华:0 注册:2012/9/23 10:42:00
请问当数据复制到统计表中有两列内容不一样时能否有窗口提示。  发帖心情 Post By:2015/7/24 14:12:00 [只看该作者]

版主,你好!附件中的图片客户售达方列、SPEC列两项内容作为核对对象,目的:当将订单信息导入到衰减器订单执行统计表后,如果新订单的客户售达方相同时,SPEC文件不同时,能否让狐表自动蹦出提示窗口,并在提示窗口中明确是哪个客户售达方的订单有
图片点击可在新窗口打开查看此主题相关图片如下:订单信息异常提示.png
图片点击可在新窗口打开查看
升级。谢谢!

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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望:0 精华:0 注册:2012/2/3 17:45:00
  发帖心情 Post By:2015/7/24 14:51:00 [只看该作者]

试试 我也是新手 互相帮忙
DataColChanging
Select e.DataCol.Name
    Case "spec"
        If e.NewValue<> "" Then
            Dim drs As List(Of String)
            drs= DataTables("衰减器订单执行统计表").GetValues("spec","[客户售达方列]='"& e.DataRow("客户售达方列") &"'")
            If drs.Contains(e.NewValue)=False Then
                MessageBox.Show("有不同!")
                e.Cancel=True
            End If
        End If
End Select
[此贴子已经被作者于2015/7/24 15:20:06编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/7/24 15:29:00 [只看该作者]

DataColChanging事件

Select e.DataCol.Name
    Case "spec"
        If e.NewValue <> Nothing Then
            Dim drs As List(Of DataRow) = DataTables("衰减器订单执行统计表").Select("[客户售达方列]='"& e.DataRow("客户售达方列") &"'")
            For Each dr As DataRow In drs
                If dr("spec") <> e.newValue Then
                    MessageBox.Show("有不同->" & dr("销售订单"))
                    e.Cancel=True
                End If
            Next
        End If
End Select


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


加好友 发短信
等级:童狐 帖子:235 积分:2054 威望:0 精华:0 注册:2012/9/23 10:42:00
  发帖心情 Post By:2015/7/24 19:07:00 [只看该作者]

谢谢大家的帮助!十分感谢!

 回到顶部