主题：[求助]打印行首复选框勾选的行

            For i As Integer = .TopPosition To .BottomPosition
                Dim r As Row = .Rows(i)

改成

            For Each r As Row in .GetCheckedRows