主题：判断为空，引用另一列

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、当供方信息办公地址为空时，导入供方信息另一列工厂地址。