- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 请问当数据复制到统计表中有两列内容不一样时能否有窗口提示。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72157)
-- 发布时间：2015/7/24 14:12:00
-- 请问当数据复制到统计表中有两列内容不一样时能否有窗口提示。
版主，你好！附件中的图片客户售达方列、SPEC列两项内容作为核对对象，目的：当将订单信息导入到衰减器订单执行统计表后，如果新订单的客户售达方相同时，SPEC文件不同时，能否让狐表自动蹦出提示窗口，并在提示窗口中明确是哪个客户售达方的订单有
此主题相关图片如下：订单信息异常提示.png
升级。谢谢！
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2015/7/24 19:07:00
--
谢谢大家的帮助！十分感谢！