主题：[求助]关于行头复选框的问题

在窗体表中，将此窗体表属性的“显示复选框”设为TRUE，在窗体中有一个按钮，单点此按钮后MESSAGEBOX提示出所选的行号。

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

参考：

 

If Tables("表A").GetCheckedRows.count = 0
    MessageBox.Show("您还未选择目标行")
Else
    For Each r As Row In Tables("表A").GetCheckedRows
        '要执行的操作
    Next
End If

哦，看到了。

 

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

非常感谢。问题解决了！