- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 这个里面的IF 语句报错，但确执行了IF语句的内容 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126333)
-- 发布时间：2018/10/18 18:05:00
-- 这个里面的IF 语句报错，但确执行了IF语句的内容
报错如下，蓝色IF语句引起的报错，但结果确执行了IF语句。去掉IF语句则不报错，为什么
此主题相关图片如下：qq截图20181018171033.png
代码如下：
Dim syms As List(of DataRow) = DataTables("溯源码").SQLSelect("当前所在部门 = \'" & yh("所属部门") & "\' And 是否可用 = 1") \'找到本部门可用溯源码的行
For Each sym As DataRow In syms
fr = DataTables("盘点单据").Find("[溯源码] = \'" & sym("子溯源码") & "\'") \'溯源码表中的溯源码是否存在与盘点单据
If fr IsNot Nothing Then
fr("审核人") = dr("姓名")
fr("审核日期") = Date.Now
sym("是否可用") = 1
Else
MessageBox.Show(fr("商品编码"),sym("商品编码"))
Dim wb As Row = Tables("外部出库").AddNew()
If sym("商品编码") = fr("商品编码") Then
sym("是否可用") = 0
wb("溯源码" ) = sym("子溯源码")
wb("出库部门") = sym("当前所在部门")
wb("出库时间") = Date.Now
wb("单据类型") = "销售单"
wb("是否拆箱") = sym("是否拆箱")
wb("出库人") = yh("姓名")
wb("核销人") = dr("姓名")
End If
-- 发布时间：2018/10/18 18:39:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=126324&skin=0