主题：请教杂项中自动计算的代码如何写？

http://www.foxtable.com/help/topics/0545.htm

示例二

你是问的菜单中的自动计算吧？

在菜单的系统事件：AfterSelRangeChange中的代码

Dim t As Table
RibbonMenu.StatusBar.Message3 = ""
Vars("SysUpdateAggregate") = False
If e.Table IsNot CurrentTable OrElse CurrentTable Is Nothing Then
    Return
Else
    t = CurrentTable
End If
If t.TopRow = t.BottomRow AndAlso t.LeftCol = t.RightCol Then
    Return
End If
For c As Integer = t.LeftCol To t.RightCol
    If c < 1 Then
        Continue For
    End If
    If t.Cols(c).IsNumeric = False Then
        Return
    End If
Next
Vars("SysUpdateAggregate") =  True

然后再在各选项中的代码，比如自动计算中的代码：

RaiseSystemEvent(CurrentTable,SystemEventTypeEnum.AfterSelRangeChange)

你的意思和题目差的太远了，呵，最好做出狐表文件上传