以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]表达式转代码，求解惑  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86831)
--  作者：aoyu20065
--  发布时间：2016/6/27 14:10:00
--  [求助]表达式转代码，求解惑
表达式
IIF([始发网点名称] = \'河北省邢台市\',Parent(mn).标准名称,[始发网点名称])

代码
Dim 始发网点名称 As String
If 始发网点名称 <> ("河北省邢台市") Then
    e.DataRow("结算网点1") = e.DataRow("始发网点名称")
Else
    If e.DataCol.Name = "收件员名称" Then \'如果内容发生变动的是产品列
        If e.NewValue Is Nothing Then \'如果新值是空白,也就是产品列的内容为空
            e.DataRow("结算网点1") = Nothing \'那么清空此行单价列的内容
        Else
            Dim dr As DataRow
            \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
            dr = DataTables("标准网点名称").Find("[收件员名称] = \'" & e.NewValue & "\'")
            If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
                e.DataRow("结算网点1") = dr("标准名称")
            End If
        End If
    End If
End If

谁给看看我这代码哪错了，怎么不判断啊
--  作者：aoyu20065
--  发布时间：2016/6/27 15:28:00
--  
大神今天都没在吗。。。
--  作者：大红袍
--  发布时间：2016/6/27 15:29:00
--  


If e.DataCol.Name = "始发网点名称" Then \'如果内容发生变动的是产品列
    If e.DataRow("始发网点名称") <> "河北省邢台市" Then
        e.DataRow("结算网点1") = e.DataRow("始发网点名称")
    Else
        Dim dr As DataRow = DataTables("标准网点名称").Find("[收件员名称] = \'" & e.DataRow("收件员名称") & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("结算网点1") = dr("标准名称")
        End If
    End If
End If
--  作者：aoyu20065
--  发布时间：2016/6/27 22:40:00
--  
谢谢