以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  判断Table数据是否存在重复值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=130114)
--  作者：hopestarxia
--  发布时间：2019/1/13 23:02:00
--  判断Table数据是否存在重复值
增加了一个出库的窗口。
窗口中有一Table表（Table1），关联的是出库单表，属性为副本。
想在单据保存前，检查一下表中是否有重复的数据，有重复的数据则提示重复并停止保存。
Table表判断重复的条件为单据ID、货品ID、批次ID一行中这三项值相等时则提示重复。

希望能像我这个不能大于订单数出库一样提示
Dim t2 As Table = e.form.Controls("Table1").Table
For Each r2 As Row In t2.Rows
If  r2("出库数量") >  r2("订单数量")  = 0 Then
    msgbox("出库数量不能大于订单数量")
    Return
End If

请问需求功能代码应如何编写：
--  作者：有点甜
--  发布时间：2019/1/13 23:10:00
--  

Dim t2 As Table = e.form.Controls("Table1").Table
Dim ls As new List(Of String)
For Each r2 As Row In t2.Rows
    Dim s = r2("列1") & "|" & r2("列2")
    If ls.contains(s) Then
        msgbox("重复")
        Exit For
    Else
        ls.add(s)
    End If
Next
--  作者：hopestarxia
--  发布时间：2019/1/14 0:42:00
--  
谢谢老师