菜单事件

_SystemIdle

If CurrentTable Is Nothing Then Return

Dim str1 As String = ""

Dim t As Table = CurrentTable

If t.Cols(t.ColSel).IsNumeric Then    

    Str1 = Str1 & "累计:" & t.Aggregate(AggregateEnum.Sum, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

    Str1 = Str1 & "平均:" & t.Aggregate(AggregateEnum.Average, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

    Str1 = Str1 & "最大:" & t.Aggregate(AggregateEnum.Max, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

    Str1 = Str1 & "最小:" & t.Aggregate(AggregateEnum.Min, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "  

else

    Str1 = Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

End If

  StatusBar.Message3 = str1

在附件中运行会出现错误，“索引超出范围。必须为非负值并小于集合大小。” 求解，先谢过。

1、代码改成比如

Dim tabc As WinForm.TabControl
tabc=e.Form.Controls("TabControl1")
Dim str As String
str=tabc.SelectedPage.Text

If tabc.SelectedIndex<>0 Then
    If Forms(str).Opened=True
        e.Form.controls("table1").visible = False
        tabc.TabPages.Delete(str)
        Forms(str).Close
    End If   
End If

2、不建议你这样做，尽量用下面这种方法插入窗口

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127551&skin=0