Foxtable(狐表)用户栏目专家坐堂 → 我知道哪报错,但不会处理


  共有4073人关注过本帖树形打印复制链接

主题:我知道哪报错,但不会处理

美女呀,离线,留言给我吧!
采菊东篱下
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/8 16:41:00 [只看该作者]

3、每天每次打开窗口管理,打开某个窗口后关闭,关闭窗口管理选项窗口时总是自动再打开之前选择打开的窗口,有时重复几次
4、在菜单设计-快捷菜单中添加的代码重新打开项目选择多行鼠标右键弹出的快捷菜单中不见自定义的快捷菜单,重新打开一次菜单设计确定后再操作一次,自定义的快捷菜单出来了。
把系统菜单中删除的代码搬到项目事件、全局事件后报错,指向红色标注的Other

图片点击可在新窗口打开查看此主题相关图片如下:00012.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:00013.png
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:00014.png
图片点击可在新窗口打开查看

'以下代码用于在状态栏显示自动计算结果,如果不需要自动计算,可删除这一段
Dim t As Table = CurrentTable
If Vars("SysUpdateAggregate") 
    If System.Windows.Forms.Control.MouseButtons <> System.Windows.Forms.MouseButtons.None OrElse System.Windows.Forms.Control.ModifierKeys <> System.Windows.Forms.Keys.None Then
        Return
    End If
    Dim Str1 As String = ""
    Vars("SysUpdateAggregate") = False
    With RibbonTabs("Other").Groups("Aggregate")
        With CType(.Items("Aggregate"), RibbonMenu.ToggleButton)
            If .Pressed = False Then
                Return
            End If
        End With
        If CType(.Items("Count"), RibbonMenu.CheckBox).Checked Then
            Str1 = Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
        End If
        If CType(.Items("Sum"), RibbonMenu.CheckBox).Checked Then
            Str1 = Str1 & "累计:" & t.Aggregate(AggregateEnum.Sum, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
        End If
        If CType(.Items("Average"), RibbonMenu.CheckBox).Checked Then
            Str1 = Str1 & "平均:" & t.Aggregate(AggregateEnum.Average, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
        End If
        If CType(.Items("Max"), RibbonMenu.CheckBox).Checked Then
            Str1 = Str1 & "最大:" & t.Aggregate(AggregateEnum.Max, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
        End If
        If CType(.Items("Min"), RibbonMenu.CheckBox).Checked Then
            Str1 = Str1 & "最小:" & t.Aggregate(AggregateEnum.Min, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
        End If
        With CType(.Items("Other"), RibbonMenu.MenuButton)
            If CType(.Items("Std"), RibbonMenu.ToggleButton).Pressed Then
                Str1 = Str1 & "标准差:" & t.Aggregate(AggregateEnum.Std, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
            End If
            If CType(.Items("StdPop"), RibbonMenu.ToggleButton).Pressed Then
                Str1 = Str1 & "总体标准差:" & t.Aggregate(AggregateEnum.StdPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
            End If
            If CType(.Items("Var"), RibbonMenu.ToggleButton).Pressed Then
                Str1 = Str1 & "方差:" & t.Aggregate(AggregateEnum.Var, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
            End If
            If CType(.Items("VarPop"), RibbonMenu.ToggleButton).Pressed Then
                Str1 = Str1 & "总体方差:" & t.Aggregate(AggregateEnum.VarPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
            End If
        End With
    End With
    RibbonMenu.StatusBar.Message3 = Str1
End If
我思量着功能区没有这个指定名称终是不行,要么自己重新写代码,可我总想利用原有代码,于是在功能区就建一个满足要求的功能,把它设为不可见,这样就不影响美观了,刚试了一下没报错。

[此贴子已经被作者于2021/3/8 16:43:35编辑过]

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/8 16:42:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:小区车辆管理20210308.foxdb

密码:888888

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 16:56:00 [只看该作者]

要么补回删除的菜单,要么把代码里用到这些菜单的代码去掉

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/8 17:00:00 [只看该作者]

已经做了Aggregate的菜单,设为不见了。

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 17:04:00 [只看该作者]

还有什么问题?

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/8 17:18:00 [只看该作者]

3、每天每次打开窗口管理,打开某个窗口后关闭,关闭窗口管理选项窗口时总是自动再打开之前选择打开的窗口,有时重复几次。下午还出现这问题,现在好象又没了,等再出现再问你吧。

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/8 17:33:00 [只看该作者]

我想在选定区域进行统计时显示进度条,代码应放哪里?

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 20:07:00 [只看该作者]

如果统计只有一个操作,或者代码执行比较快,进度条基本没有什么用处。

如果有多个统计操作,可以参考:http://www.foxtable.com/webhelp/topics/0639.htm

如:
StatusBar.ProgressBar.Visible =true
StatusBar.ProgressBar.Value = 
10
StatusBar.Message2= 
"10%"
Application.DoEvents()
统计1
StatusBar.ProgressBar.Value = 30
StatusBar.Message2= 
"30%"
Application.DoEvents()
统计2
StatusBar.ProgressBar.Value = 60
StatusBar.Message2= 
"60%"
Application.DoEvents()
统计3
……

 回到顶部
美女呀,离线,留言给我吧!
采菊东篱下
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1863 积分:10262 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/3/8 20:22:00 [只看该作者]

我已经写了代码了,昨晚就看到进度效果了,只是不知放哪可以在选定区域统计时显示进度,知道它没什么用,感觉好玩,酷!就做着炫,学嘛,好玩就学学,没压力。
[此贴子已经被作者于2021/3/8 20:25:55编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/8 20:36:00 [只看该作者]

选定区域统计的代码在哪里就放到那里

 回到顶部
总数 36 上一页 1 2 3 4 下一页