显示当前表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

选择页面集合中不同的页签，怎么自动在状态栏显示分区面板绑定的表名？现在切换会显示窗口的所有者表MAIN,？？

你切换不同的页签后，让table控件获取焦点。

SelectedIndexChanged事件

Dim p As WinForm.TabPage = e.sender.SelectedPage
For Each c As object In p.Children
    If Typeof c Is winform.Table Then
        c.Select
        Exit For
    End If
Next

老师，上面的代码写入控件TabControl的SelectedIndexChanged事件；还是和原来一样，没有作用；而且上面代码第一次接触，不能全部理解？

窗口的所有者表是表MAIN，页面集合的每个页签有一个分区面板，分区面板有一个表控件，希望这个表控件获取焦点。

你状态栏的代码怎么写？写在什么事件？

或者做个实例发上来测试。

写在项目属性的Systemidle事件中：

With CurrentTable

Dim Str2 As String = "用户: " & _UserName

Str2 = Str2 & " 表名: " & .Name & " 总行数: "

Str2 = Str2 & .Rows.Count & " 当前行: " & (.Position + 1)

StatusBar.Message2 = Str2

End With

'-----------在状态栏的中间显示用户名,表名,总行数和当前行--------------

Dim str1 As String = ""

Dim t As Table = CurrentTable

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

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) & " "

'Str1 = Str1 & "标准差:" & t.Aggregate(AggregateEnum.Std, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

'Str1 = Str1 & "总体标准差:" & t.Aggregate(AggregateEnum.StdPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

'Str1 = Str1 & "方差:" & t.Aggregate(AggregateEnum.Var, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

'Str1 = Str1 & "总体方差:" & t.Aggregate(AggregateEnum.VarPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "

StatusBar.Message3 = str1

我测试没问题，你点击切换tabcontrol的页面了吗？

点击了，没有反应

以下是引用lk15502在2017/8/9 12:00:00的发言：
点击了，没有反应

不可能，举例做个例子发上来测试。

主题：显示当前表