以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  判断为空，引用另一列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85193)
--  作者：260964006
--  发布时间：2016/5/19 17:56:00
--  判断为空，引用另一列

If e.DataCol.Name = "供应商简称" Then
    If e.NewValue Is Nothing Then
                e.DataRow("信息_地址") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("供方信息").Find("[供应商简称] = \'" &  e.NewValue & "\'")
        If dr IsNot Nothing 
                        e.DataRow("信息_地址") = dr("办公地址")
        End If
    End If
End If

 

怎么修改上述程序，满足：1、优先导入供方信息办公地址；

                                  2、当供方信息办公地址为空时，导入供方信息另一列工厂地址。
--  作者：大红袍
--  发布时间：2016/5/19 17:58:00
--  
If e.DataCol.Name = "供应商简称" Then
    If e.NewValue Is Nothing Then
        e.DataRow("信息_地址") = Nothing
    Else
        Dim dr As DataRow
        dr = DataTables("供方信息").Find("[供应商简称] = \'" &  e.NewValue & "\'")
        If dr IsNot Nothing
            e.DataRow("信息_地址") = iif(dr.isnull("办公地址"), dr("工厂地址"), dr("办公地址"))
        End If
    End If
End If