如何对窗口里的table1进行遍历？或者只遍历最新的100行DATATALBE? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何对窗口里的table1进行遍历？或者只遍历最新的100行DATATALBE?

共有3027人关注过本帖树形打印复制链接主题：如何对窗口里的table1进行遍历？或者只遍历最新的100行DATATALBE?

zhchling

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：385 积分：3893 威望：0 精华：0 注册：2012/2/9 20:09:00

如何对窗口里的table1进行遍历？或者只遍历最新的100行DATATALBE? 发帖心情

Post By：2014/8/9 18:33:00 [只看该作者]

For Each dr As DataRow In DataTables("mo").dataRows

以上代码是对DATATABLES进行遍历，

问题1：如果对窗口里的table1进行遍历，怎么改写代码？

问题2：上面的代码对DATATALBE里所有的数据行都遍历了，怎么设置遍历的行数，比如只遍历最新的100行

lsy

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/8/9 19:02:00 [只看该作者]

Dim drs As List(Of DataRow) = DataTables("订单").Select("","_Identify Desc")
Dim i As Integer
For Each dr As DataRow In drs
    i + = 1
    Output.Show(dr("_Identify"))
    If i = 100 Then
        Exit For
    End If
Next

zhchling

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：385 积分：3893 威望：0 精华：0 注册：2012/2/9 20:09:00

Post By：2014/8/9 19:11:00 [只看该作者]

问题1怎么解决？只对窗口里TABLE1里显示的数据行进行遍历

For Each dr As Row In Tables("窗口1_table1").Rows 这么写的是不对的，

怎么写代码？

[此贴子已经被作者于2014-8-9 19:19:03编辑过]

lsy

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00

Post By：2014/8/10 8:20:00 [只看该作者]

Tables("窗口1_table1").Filter = "XXX"

For Each r As Row In Tables("窗口1_table1").Rows

MessageBox.Show(r("XXX"))

怎么不对？

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/8/10 9:06:00 [只看该作者]

你的表名要写对才行

For Each r As Row In Tables("表A").Rows

MessageBox.Show(r("XXX"))

下一主题 >> << 上一主题

主题：如何对窗口里的table1进行遍历？或者只遍历最新的100行DATATALBE?