主题：复选框选定问题

老师，复选框导出选定行的报表怎么实现。我之前的是直接选择行导出，不连续的行就不方便，代码如下实现不了：

For Each r As Row In Tables("业绩管理").Rows
    If r.Checked = True Then

        Dim Book As New XLS.Book(ProjectPath & "Attachments\标签.xlsx") '打开模板
        Dim fl As String =  ProjectPath &  "Reports\标签.xlsx"
        Book.Build() '生成报表
        Book.Save(fl)
        Dim Proc As New Process
        Proc.File = fl
        Proc.Start()

    End If
Next

老师，出来的效果还是只有鼠标定为到哪一行额的，不是选定行。而且执行后勾选的行，被取消了。

可以了，老师辛苦了。