以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何遍历选中行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=28514)
--  作者：hiliuyong
--  发布时间：2013/1/31 18:50:00
--  [求助]如何遍历选中行

如题

For each r as row ......

 
--  作者：lin_hailun
--  发布时间：2013/1/31 19:06:00
--  
 如下。

http://www.foxtable.com/help/topics/1597.htm
--  作者：hiliuyong
--  发布时间：2013/2/4 18:02:00
--  

With Tables("订单")
    If .TopPosition > -1 Then \'如果选定区域包括数据行
        For i as Integer = .TopPosition To .BottomPosition

            r("选中")= True     \'这行的正确写法是？
            \'.Rows(i).Locked = true
        Next
    End If
End With
--  作者：lin_hailun
--  发布时间：2013/2/4 18:06:00
--  
 你想实现什么操作？
--  作者：狐狸爸爸
--  发布时间：2013/2/4 18:13:00
--  

你要的是不是这个：

http://www.foxtable.com/help/topics/1776.htm

 
--  作者：程兴刚
--  发布时间：2013/2/4 19:40:00
--  
 

 

For Each cl As Col In CurrentTable.Cols

   Output.Show(Tables("某某表").Current(cl.name))

Next
[此贴子已经被作者于2013-2-5 18:43:21编辑过]
--  作者：ljh29206
--  发布时间：2013/2/5 10:40:00
--  

With Tables("订单")
    If .TopPosition > -1 Then \'如果选定区域包括数据行
        For i as Integer = .TopPosition To .BottomPosition

            .row(i)("选中")= True               
        Next
    End If
End With
--  作者：blackzhu
--  发布时间：2013/2/5 12:20:00
--  

Dim drs As List(Of DataRow)
drs = DataTables("订单").Select("逻辑列 = True")
For Each dr As Datarow In drs \'遍历行
    
Next
--  作者：hiliuyong
--  发布时间：2013/2/5 17:52:00
--  

谢谢大家，LJH29206的是我要的正解。