主题：如何编辑狐表最下方的状态栏

楼主:在菜单管理项目功能区中的项目属性功能组中的全局表事件PositionChanged中加入你需要的代码,比如说

With CurrentTable
    Dim Str1 As String = "用户: " & _UserName
    Str1 = Str1 & " 表名: " & .Name & " 总行数: "
    Str1 = Str1 & .Rows.Count & " 当前行: " & (.Position + 1)
    StatusBar.Message1 = Str1
End With