以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么统计复选框中已勾选的行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39376)
--  作者：mamuaiqing
--  发布时间：2013/8/22 21:52:00
--  怎么统计复选框中已勾选的行

Dim Count As Integer
For Each r1 As Row In Tables("窗口1_Table1").GetCheckedRows
    Count = ???    这里要怎么写?请教老师
Next

e.Form.Controls("Label").Text = count & "条"
--  作者：有点甜
--  发布时间：2013/8/22 22:01:00
--  

Dim Count As Integer
For Each r1 As Row In Tables("窗口1_Table1").GetCheckedRows
    Count = count + 1    \'这里要怎么写?请教老师
Next

e.Form.Controls("Label").Text = count & "条"
--  作者：mamuaiqing
--  发布时间：2013/8/22 22:25:00
--  
原来就是这么简单,居然没想到,感谢有点甜
--  作者：有点酸
--  发布时间：2013/8/22 22:49:00
--  
呵呵，甜想多了，酸认为这样： e.Form.Controls("Label").Text = Tables("窗口1_Table1").GetCheckedRows.count & "条"
--  作者：mamuaiqing
--  发布时间：2013/8/23 1:20:00
--  
呵呵,两个还不同是一个人,原来可以不经过循环直接得出值