主题：如何利用CheckBox的勾选生成统计数据？

参考

Dim ls As New List(Of string)

For Each r As Row In Tables(e.Form.name & "_table1").Rows
    If gx.Checked = True Then
        r.Checked = True

        If ls.contains(r("第一列") & "|" & r("第二列")) Then

            ls.add(r("第一列") & "|" & r("第二列"))

        End If
    Else
        r.Checked = False
    End If
Next

然后循环ls即可，如

For Each str As String in ls

    msgbox(str.split("|")(0)) 

    msgbox(str.split("|")(1))

Next