以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]排出空值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=123243)
--  作者：bashanren
--  发布时间：2018/8/10 15:05:00
--  [求助]排出空值
If e.DataCol.name = "乡镇" Then
    Dim ls1 As List(Of String) = DataTables("GMYX").getvalues("XJHZXM", "XZMC=\'" & e.DataRow("乡镇") & "\'")
    Dim ls2 As List(Of String) = DataTables("GMYS").getvalues("XJHZXM", "sjxzmc=\'" & e.DataRow("乡镇") & "\'")
    Dim ls3 As List(Of String) = DataTables("shuiku").getvalues("XJKZXM", "ssxzmc=\'" & e.DataRow("乡镇") & "\'")
    For Each s As String In ls2
        If ls1.Contains(s) = False Then
            ls1.add(s)
        End If
    Next
    For Each s As String In ls3
        If ls1.Contains(s) = False Then
            ls1.add(s)
        End If
    Next
    e.DataRow("XJHZSL") = ls1.count
End If

请问各位大师，在上述的语句中，如何排出空值。谢谢各位老师！！！
--  作者：有点甜
--  发布时间：2018/8/10 15:17:00
--  

 

Dim ls1 As List(Of String) = DataTables("GMYX").getvalues("XJHZXM", "XZMC=\'" & e.DataRow("乡镇") & "\' and XJHZXM is not null")