最好把这个页面完整代码发上来,不知道是不是这个意思?
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 8:45:48编辑过]