主题：IF语句是否可以这样写，期待指导

可以，有什么问题？

http://www.foxtable.com/webhelp/scr/0223.htm

改成

For Each sym As DataRow In syms
    fr = DataTables("盘点单据").Find("[溯源码] = '" & sym("子溯源码") & "'")  '溯源码表中的溯源码是否存在与盘点单据
    If fr IsNot Nothing Then
        sym("是否可用") = 1
        fr("审核人") = dr("姓名")
        fr("审核日期") = Date.Now
       
        If fr("盘点类型") = "日盘" OrElse fr("盘点类型") = "抽盘" Then
            If fr("商品编码") = sym("商品编码") Then
                Dim wb As Row = Tables("外部出库").AddNew()
                sym("是否可用") = 0
                wb("溯源码" ) = sym("子溯源码")
                wb("出库部门") = sym("当前所在部门")
                wb("出库时间") = Date.Now
                wb("单据类型") = "销售单"
                wb("是否拆箱") = sym("是否拆箱")
                wb("出库人") = yh("姓名")
                wb("核销人") = dr("姓名")
            End If
        End If
    Else
        Dim wb As Row = Tables("外部出库").AddNew()
        sym("是否可用") = 0
        wb("溯源码" ) = sym("子溯源码")
        wb("出库部门") = sym("当前所在部门")
        wb("出库时间") = Date.Now
        wb("单据类型") = "销售单"
        wb("是否拆箱") = sym("是否拆箱")
        wb("出库人") = yh("姓名")
        wb("核销人") = dr("姓名")
    End If
Next