主题：[求助]请教关于判断选定多个复选框的问题

Select Case e.DataCol.Name

    Case "第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列"

        Dim cls() As String = {"第一列","第二列","第三列","第四列","第五列","第六列","第七列","第八列"}

        Dim t As Table = Tables(e.DataTable.Name)

        Dim sum As Integer = 0

        For Each c As String In cls

            If t.Cols(c).Visible Then

                sum += e.DataRow(c)

            End If

        Next

        e.DataRow("合计") = sum

End Select

但是这个代码只能用于DataColChanged事件中。我想把它来运用在判断显示列窗口中，也就是判断显示列后，再求合计列的值。但是这个代码里面的参数都是DataColChanged的E参数。请老师帮忙改成通用型，使它在判断显示列的窗口的button按钮的click事件中也能使用。谢谢！