以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]关于行头复选框的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=72955)
--  作者：fred
--  发布时间：2015/8/9 18:53:00
--  [求助]关于行头复选框的问题
在窗体表中，将此窗体表属性的“显示复选框”设为TRUE，在窗体中有一个按钮，单点此按钮后MESSAGEBOX提示出所选的行号。
代码是这样的吗？以及Else后面代码如何写？

For Each r As Row In Tables("表A").Rows
    If r.Checked = False Then
       MessageBox.Show("您还未选择目标行")
    Else
        ???????
    End If
Next
--  作者：czy
--  发布时间：2015/8/9 19:17:00
--  

后面怎么写你得说想干什么啊

参考：

 

If Tables("表A").GetCheckedRows.count = 0
    MessageBox.Show("您还未选择目标行")
Else
    For Each r As Row In Tables("表A").GetCheckedRows
        \'要执行的操作
    Next
End If
--  作者：czy
--  发布时间：2015/8/9 19:25:00
--  

哦，看到了。

 

If Tables("表A").GetCheckedRows.count = 0
    MessageBox.Show("您还未选择目标行")
Else
    Dim s As String
    For Each r As Row In Tables("表A").GetCheckedRows
        s & = "," &  r.Index + 1
    Next
    MessageBox.Show("你选择了 " & s.Trim(",") & " 行")
End If
--  作者：fred
--  发布时间：2015/8/10 15:36:00
--  
非常感谢。问题解决了！