以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [讨论]for each 循环  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=136788)
--  作者：晨曦396
--  发布时间：2019/6/21 15:29:00
--  [讨论]for each 循环

drs = DataTables("表A").Select("第1级 <> \'""\'")
For Each dr As DataRow In drs
    Dim jiezhi As List(Of DataRow) = DataTables("表A").Select("第1级 <> \'""\'" & "and" & "[序号] >\'0\'")
    For Each jiezhia As DataRow In jiezhi
        If jiezhia("第1级")<> "" Then
            MessageBox.show(jiezhia)
            Exit For
        Else
           MessageBox.show(“123”)
         End If
    Next
Next

 

在for each 中又用了一个for each （最里面的循环条件满足就exit for），外面的进行下一次循环，但是此时里面一层的for each不执行了
--  作者：y2287958
--  发布时间：2019/6/21 15:37:00
--  
drs = DataTables("表A").Select("第1级 <> \'""\'")
For Each dr As DataRow In drs
    Dim jiezhi As List(Of DataRow) = DataTables("表A").Select("第1级 <> \'""\' and [序号] > 0")
    For Each jiezhia As DataRow In jiezhi
        If jiezhia("第1级")<> "" Then
            MessageBox.show(jiezhia("第1级"))
            Exit For
        Else
           MessageBox.show("123")
         End If
    Next
Next

确定其中“\'""\'”是否存在
另外，怀疑这段代码的意义
--  作者：晨曦396
--  发布时间：2019/6/21 16:13:00
--  

Dim jiezhi As List(Of DataRow) = DataTables("表A").Select("第1级 <> \'""\' and [序号] > 0")

判断 集合是否为空，我用if jiezhi is nothing then 不行，正确的代码应该怎么写
--  作者：有点甜
--  发布时间：2019/6/21 16:18:00
--  

如

 

Dim jiezhi As List(Of DataRow) = DataTables("表A").Select("第1级 <> \'""\' and [序号] > 0")

If jiezhi.count = 0 then

    msgbox("空")

end if
--  作者：晨曦396
--  发布时间：2019/6/21 16:21:00
--  
非常感谢