以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  集合空值判断  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=186602)

--  作者:朱女士
--  发布时间:2023/5/15 11:10:00
--  集合空值判断
老师您好!
我有个集合空值怎么判断?我用nothing和null 都报错,请指教,谢谢!
Dim brys As List(Of String) 
brys = DataTables("ddpsb").GetValues("zzh|zzh_xx|发货日期", "zzh is not null")
For Each bry As String In brys
    
 For Each dr2 As DataRow In DataTables("ddqdb").Select("zzh=\'" & brys(0) & "\'") \'找到符合条件的所有记录
        Dim s As String = dr2("zzh_yy")
        Dim syy As String = Right(s, 2)
\'        If bry(1) Is Not nothing  And syy = bry(1) Then 
\'            Dim dr3 As DataRow = DataTables("临时表").AddNew()
            
\'            If dr2.IsNull("清单条码编码") = False Then
\'                dr3("清单条码编码") = dr2("清单条码编码")
\'                dr3("发货日期") = bry(2)
\'            End If 
\'        Else 
\'            Dim dr4 As DataRow = DataTables("临时表").AddNew()
            
\'            If dr2.IsNull("清单条码编码") = False Then
\'                dr4("清单条码编码") = dr2("清单条码编码")
\'                dr4("发货日期") = bry(2)
\'            End If
\'      End If
        
    Next

Next

--  作者:有点蓝
--  发布时间:2023/5/15 11:25:00
--  
Dim brys As List(Of String()) 

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看