以文本方式查看主题 -  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=152996)

--  作者：hopestarxia --  发布时间：2020/7/28 12:34:00 --  查找表中是否存在重复值 老师，我如用下语句实现了保存时检查是否出库数量大于库存数量， Dim t2 As Table = e.form.Controls("Table1").Table For Each r2 As Row In t2.Rows If  r2("quantity") >  r2("当前库存") Then     msgbox("发货数量大于当前库存数量")     Return End If Next 请问我想实现不允许表中输入重复的货品，请问下列语句应该怎么实现？即检查表中是否有与检查行中有货品编码相同的行记录，如果有则提示。 Dim t2 As Table = e.form.Controls("Table1").Table For Each r2 As Row In t2.Rows If  r2("货品编码") >  r2("当前库存") Then     msgbox("明细中存在重复的货品")     Return End If Next

--  作者：有点蓝 --  发布时间：2020/7/28 13:38:00 --   For Each r2 As Row In t2.Rows If  t2.compute("count(货品编码)","货品编码=\'" & r2("货品编码") & "\'") > 1 Then     msgbox("明细中存在重复的货品")     Return End If Next

--  作者：hopestarxia --  发布时间：2020/7/29 13:15:00 --   谢谢老师！！！