以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  如果根据已经find的行，遍历所有的行，取得符合条件的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160401)

--  作者：cnsjroom --  发布时间：2021/2/1 13:32:00 --  如果根据已经find的行，遍历所有的行，取得符合条件的数据 如果根据已经find的行，遍历所有的行，取得符合条件的数据 红色部分代码怎么修正呢？ Dim dt As DataRow = DataTables("附件").Find("类别= \'" & leibie & "\'and 编号= \'" & bianhao & "\'") If dt IsNot Nothing Then \'如果找到的话     For Each dr1 As DataRow In dt.DataTable.DataRows         output.Show(dr1("名称"))     Next End If

--  作者：有点蓝 --  发布时间：2021/2/1 13:36:00 --   已经find的行就是需要的结果，为什么还要遍历所有的行？

--  作者：cnsjroom --  发布时间：2021/2/1 13:54:00 --  回复：（有点蓝）已经find的行就是需要的结果，为什么... 找到的行  会有多条数据记录   默认输出结果只有一条  想在找到的行下面再遍历找到所有的行数据  输出结果

--  作者：有点蓝 --  发布时间：2021/2/1 14:03:00 --   参考：http://www.foxtable.com/webhelp/topics/0400.htm

--  作者：cnsjroom --  发布时间：2021/2/1 14:26:00 --  回复：（有点蓝）参考：http://www.foxtable.com/webh... Dim drs As List(Of DataRow) drs = DataTables("附件").Select("类别= \'" & leibie & "\'and 编号= \'" & bianhao & "\'") For Each dr As DataRow In drs     output.Show(dr("名称")) Next If dt IsNot Nothing Then \'如果找到的话     ……提示有数据 Else     ……提示无数据 End If  参照老师提供的帮助  已经可以获得了所有满足条件的名称值，但是如果当前附件表中如果没有记录值得话  无输出  没有任何提示  感觉不大友好   有没有办法将红色部分的判断功能和for部分进行融合呢？

--  作者：有点蓝 --  发布时间：2021/2/1 14:35:00 --   drs = DataTables("附件").Select("类别= \'" & leibie & "\'and 编号= \'" & bianhao & "\'") If drs.count > 0 Then \'如果找到的话

--  作者：cnsjroom --  发布时间：2021/2/1 15:29:00 --  回复：（有点蓝）drs = DataTables("附件").Select("类... OK  谢谢老师