以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教老师，新增行重复判断怎么写  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132864)
--  作者：wakai
--  发布时间：2019/3/31 22:41:00
--  请教老师，新增行重复判断怎么写
有进仓单表，字段“进仓单号”在数据库中设置为唯一不可重复，
现在相同重复进仓单号时弹出错误

如何写判断，如果有相同进仓单号则不新增，否则就新增？(网络编号明白，为实现另一功能举的例）

Dim dr As DataRow = DataTables("进仓单").AddNew()
--  作者：YDGJ2016
--  发布时间：2019/3/31 23:12:00
--  

Dim x As Integer = DataTables("进仓单").SQLCompute("Count(_Identify)","进仓单号 = \'" & xxxx & "\'")
If x > 0 then
\'不新增行
Else
\'执行新增行代码
End if
--  作者：wakai
--  发布时间：2019/3/31 23:22:00
--  
非常感谢
--  作者：有点甜
--  发布时间：2019/4/1 9:14:00
--  

参考

 

http://www.foxtable.com/webhelp/scr/2481.htm