主题：使用合计模式时出现的问题

mouseenter事件改为：

If CurrentTable.IsSubtotal = False
    If CurrentTable.current IsNot Nothing Then
        msgbox(CurrentTable.current("第二列"))
    End If
End If

判断是否存在当前行即可。

另外表事件，最好不用用CurrentTable，应该用e.Table