以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 集合空值判断 (http://foxtable.com/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()) |