主题：[求助]求助 这段代码的优化写法！！

Dim cnt As Integer
Dim lj As Boolean = False
Dim str As String = "详|调|合|离|员|离职时间|备注|系统密码|系统开启|系统在线与否|空白单元格|信息完整率"
Dim Values() As String
Values = Str.split("|")
For Each cl As DataCol In dt.datacols
    lj = False
    For Index As Integer = 0 To Values.Length - 1
        If Values(Index) = cl.name Then
            lj = True
        End If
    Next
    If lj = False Then
        cnt = cnt  +  dt.Compute("Count([_identify])", cl.Name & " Is not NULL ")
    End If
Next

之前想这样写的 但是出错
Dim str As String = "详|调|合|离|员|离职时间|备注|系统密码|系统开启|系统在线与否|空白单元格|信息完整率"
For Each cl As DataCol In dt.datacols
    If cl.name not In str.Split("|") Then
        cnt = cnt  +  dt.Compute("Count([_identify])", cl.Name & " Is not NULL ")
    End If
Next

此主题相关图片如下：1111.jpg

最原始的代码 判断太累了

Dim cnt As Integer
For Each cl As DataCol In dt.datacols
If cl.name <> "详" And cl.name <> "调" And cl.name <> "合" And cl.name <> "离" And cl.name <> "员" And cl.name <> "离职时间" And cl.name <> "备注" And cl.name <> "系统密码" And cl.name <> "系统开启" And cl.name <> "系统在线与否" And cl.name <> "空白单元格"  And cl.name <> "信息完整率"  Then
  cnt = cnt  +  dt.Compute("Count([_identify])", cl.Name & " Is not NULL ")
 End If
Next

s1+？？？

cnt+ ？？？  什么原理？

foxman  还有一点

s1.Contains  直接包含的话 例如：我上面的  |离|  如果去掉后 再判断  是否包含离      还是为true   因为 我还有个 |离职时间|  也包含离

最好是分开 然后contains

请问该怎么优化下？

Dim cnt As Integer
Dim s1 As String
Dim s2 As New List(of String)
s1 = "详|调|合|离|员|离职时间|备注|系统密码|系统开启|系统在线与否|空白单元格|信息完整率"
s2.AddRange(s1.Split("|"))
For Each cl As DataCol In dt.datacols
    If s2.Contains(cl.name) Then
         cnt+ =  dt.Compute("Count([_identify])", cl.Name & " Is not NULL")
    End If
Next

借鉴了foxman一下  集合里有contains方法~    各位看看还能否再优化！

多谢  呵呵~！~~~~~~~  学到了不少