Foxtable(狐表) → 用户栏目 → 专家坐堂 → 新人求助


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

主题：新人求助
帅哥哟，离线，有人找我吗？
武圣
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：925 威望：0 精华：0 注册：2020/6/5 6:40:00 		新人求助  发帖心情 Post By：2020/6/9 12:51:00 [只看该作者]

我先把oracle外数据表添加进临时表，然后对用代码按时间进行进行汇总，但重新从oracle外数据表添加数据，为啥只显示一条数据。我已经执行过clearsubtotal方法关闭汇总了，也执行了subtotalgroups.clear,都不行。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107749 积分：548084 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/9 13:44:00 [只看该作者]

贴出具体代码看看，同时截图说明问题
 回到顶部
帅哥哟，离线，有人找我吗？
武圣
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：925 威望：0 精华：0 注册：2020/6/5 6:40:00 		  发帖心情 Post By：2020/6/9 22:59:00 [只看该作者]

Dim t As Table = Tables("换轮信息")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear() 
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New Subtotalgroup
g.Aggregate = AggregateEnum.Count
g.GroupOn = "日期"
g.TotalOn = "运用车间及站修名称"
g.Caption = "{0}日 记录数"
g.DateGroup = DateGroupEnum.Day
t.SubtotalGroups.Add(g)

t.Subtotal()


'''''''''''''''''''''''''''''''''''''''''''''''''
Tables("换轮信息").ClearSubtotal '关闭分组

执行完就无法添加数据的，不执行就没问题
 回到顶部
帅哥哟，离线，有人找我吗？
武圣
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：925 威望：0 精华：0 注册：2020/6/5 6:40:00 		  发帖心情 Post By：2020/6/9 23:01:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107749 积分：548084 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/9 23:15:00 [只看该作者]

汇总模式下是无法编辑数据的。取消汇总才可以的。

 回到顶部
帅哥哟，离线，有人找我吗？
武圣
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：925 威望：0 精华：0 注册：2020/6/5 6:40:00 		  发帖心情 Post By：2020/6/9 23:38:00 [只看该作者]

clearsubtotal方法，也执行了subtotalgroups.clear,都不行，只能在系统菜单取消，不能用代码取消吗？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107749 积分：548084 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/10 8:46:00 [只看该作者]

肯定可以的，我测试没有问题。

如果是窗口表，注意表格名称：Tables("某窗口_table1")
 回到顶部
帅哥哟，离线，有人找我吗？
武圣
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：925 威望：0 精华：0 注册：2020/6/5 6:40:00 		  发帖心情 Post By：2020/6/11 6:13:00 [只看该作者]

还是不行，我退出汇总模式可以正常编辑数据表，就是不能集中添加数据，我执行的是，

DataTables("huanlun").Load
DataTables("换轮信息").deletefor("")
Tables("换轮信息").stopredraw
”For Each r As Row In Tables("huanlun").Rows
   dr = Tables("换轮信息").AddNew()
   Tables("换轮信息").Rows(i)("序号") = x
   Tables("换轮信息").Rows(i)("日期") = Tables ("huanlun").Rows(i)("xcrq")
   。。。。。
   i=i+1
Next
DataTables("换轮信息").DeleteFor("[日期] Is Null")
Tables("换轮信息").resumeredraw

DataTables("huanlun")外数据源是orale,把orale数据添加进DataTables("换轮信息")，‘换轮信息’是临时表，不知道有没有关系。
我原来认为我添加数据的代码有问题，但是在系统菜单关闭"汇总模式"执行这代码就没问题，为啥代码关闭就会出问题。
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107749 积分：548084 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/6/11 8:57:00 [只看该作者]

和汇总没有关系，这个代码本身就莫名其妙的


DataTables("huanlun").Load
DataTables("换轮信息").deletefor("")
Tables("换轮信息").stopredraw
For Each r As Row In Tables("huanlun").Rows
    If r.IsNull("xcrq") = False
        dr = Tables("换轮信息").AddNew()
        dr("序号") = x
        dr("日期") = r("xcrq")
        .....
    End If
Next
Tables("换轮信息").resumeredraw
 回到顶部
帅哥哟，离线，有人找我吗？
武圣
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：99 积分：925 威望：0 精华：0 注册：2020/6/5 6:40:00 		  发帖心情 Post By：2020/6/13 8:14:00 [只看该作者]

谢谢，明白了，代码改过来了，汇总模式还是不行，感觉代码关闭汇总比系统菜单关闭汇总少执行些东西。有没有重置表状态或刷新之类的命令。

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询