[求助]状态栏当前表选择区域合计问题怎么解决 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

'''
StatusBar.Message1 = ""
Dim s As String
Dim sum As Double
If CurrentTable IsNot Nothing Then
    If e.Table.RowSel < 0 OrElse e.Table.ColSel < 0 Then
        Return
    End If
    For Each c As Col In CurrentTable.Cols
        sum = 0
        If c.IsNumeric Then
            For i As Integer = e.NewRange.TopRow To e.NewRange.BottomRow
                sum + = CurrentTable.Rows(i)(c.Name)
            Next
            s + = c.Name & " " & sum & " "
        End If
    Next
    StatusBar.Message1 = "当前区域合计：" & " 总行数 " & e.NewRange.BottomRow - e.NewRange.TopRow + 1 & " " & s
Else
    StatusBar. Reset()
End If

主题：[求助]状态栏当前表选择区域合计问题怎么解决