报错如下，蓝色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
加好友 
发短信
Post By：2018/10/18 18:05:00 [只看该作者]
