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
请问各位大师，在上述的语句中，如何排出空值。谢谢各位老师！！！
加好友 
发短信
Post By：2018/8/10 15:05:00 [只看该作者]
