- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 什么弄个提示是否已重复-未増加行显示在 Case "库存盘点.htm" '网页里 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=178268)
-- 发布时间：2022/6/27 10:42:00
-- 什么弄个提示是否已重复-未増加行显示在 Case "库存盘点.htm" '网页里
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:网页.txt |
-- 发布时间：2022/6/27 10:50:00
--
保存前先判断，e.PostValues("商品条码")在数据库是否存在，存在就提示重复并返回，否则保存
http://www.foxtable.com/mobilehelp/topics/0058.htm
-- 发布时间：2022/6/27 17:42:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:网页.txt |
-- 发布时间：2022/6/27 20:36:00
--
代码没有问题
-- 发布时间：2022/6/28 1:40:00
--
可如果没对应的数据，会显示404的网页
-- 发布时间：2022/6/28 8:29:00
--
请上传实例说明
-- 发布时间：2022/6/28 8:42:00
--
最好把这个页面完整代码发上来，不知道是不是这个意思？
If e.PostValues("商品条码") IsNot Nothing Then
Dim dr提示 As DataRow = DataTables("标签明细201609").sqlFind("商品条码 = \'" & e.PostValues("商品条码") & "\' And 库存店名 = \'" & dr3("账号企业名") & " \'And 库存备注 = \'柜台货\'")
Dim dr提示2 As DataRow = DataTables("手机盘点明细").sqlFind("商品条码 = \'" & e.PostValues("商品条码") & "\' And 店名 = \'" & dr3("账号企业名") & " \'")
If dr提示("商品条码") IsNot Nothing And dr提示2("商品条码") Is Nothing Then
wb.InsertHTML("", "<div style=\'width:79.5%;height:50px;background-color:#cc040060;float:left;border-radius:5px;\'> 有条码 </div>")
\'ElseIf dr提示("商品条码") Is Nothing Then
ElseIf dr提示("商品条码") IsNot Nothing And dr提示2("商品条码") IsNot Nothing Then
wb.InsertHTML("", "<div style=\'width:79.5%;height:50px;background-color:#cc040060;float:left;border-radius:5px;\'> 重复条码 </div>")
End If
Else
wb.InsertHTML("", "<div style=\'width:79.5%;height:50px;background-color:#cc040060;float:left;border-radius:5px;\'> 无条码 </div>")
Return Nothing \'必须返回
End If
按照你一楼逻辑，没有条码是不是应该新增，就不需要提示了。
-- 发布时间：2022/6/28 11:33:00
--
要提示，没有数据就说明表里没有数据