Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如果根据已经find的行，遍历所有的行，取得符合条件的数据


  共有2804人关注过本帖树形打印复制链接

主题：如果根据已经find的行，遍历所有的行，取得符合条件的数据
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		如果根据已经find的行，遍历所有的行，取得符合条件的数据  发帖心情 Post By：2021/2/1 13:32:00 [显示全部帖子]

如果根据已经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
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）已经find的行就是需要的结果，为什么...  发帖心情 Post By：2021/2/1 13:54:00 [显示全部帖子]

找到的行  会有多条数据记录   默认输出结果只有一条  想在找到的行下面再遍历找到所有的行数据  输出结果

 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）参考：http://www.foxtable.com/webh...  发帖心情 Post By：2021/2/1 14:26:00 [显示全部帖子]

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部分进行融合呢？
 回到顶部
帅哥哟，离线，有人找我吗？
cnsjroom
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1571 积分：11238 威望：0 精华：0 注册：2021/1/17 17:06:00 		回复：（有点蓝）drs = DataTables("附件").Select("类...  发帖心情 Post By：2021/2/1 15:29:00 [显示全部帖子]

OK  谢谢老师

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询