主题：[求助]表达式转代码，求解惑

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