以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  条件判断问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117201)
--  作者：jackchan120925
--  发布时间：2018/4/8 17:37:00
--  条件判断问题
    Dim dr1 As DataRow = DataTables("北仑申通菜鸟面单记录表").sqlfind("编号= \'" & dr("内部单号") & "\'")
    Dim dr11 As DataRow = DataTables("北仑邮政小包普货面单信息导入").SQLFind("订单号=\'" & dr("内部单号") & "\'")
Dim dr111 As DataRow = DataTables("北仑欧阳安能快递订单表").SQLFind("订单编号=\'" & dr("内部单号") & "\'")

要判断 dr1, dr11, dr11中, 若有>=2个不是 nothing， 则跳出messagebox.show(""), 前面的条件判断怎么写表达式呢？
--  作者：有点蓝
--  发布时间：2018/4/8 18:06:00
--  
dim n as integer = 0
if dr1 is nothing then n+=1
if dr11 is nothing then n+=1
if dr111 is nothing then n+=1
if n >= 2 then
……