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

--  作者：有点蓝 --  发布时间：2019/9/10 22:11:00 --   比如 Dim dr As DataRow dr = DataTables("表B").Find("订单号 =  \'" & r("订单号") & "\'")  if dr isnot nothing then     MessageBox.Show("已经有相同的订单号存在!") else 复制的代码 end if