Foxtable(狐表)用户栏目专家坐堂 → 临时表数据无法使用


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

主题:临时表数据无法使用

帅哥哟,离线,有人找我吗?
ifox2018
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:166 积分:1613 威望:0 精华:0 注册:2018/3/12 9:22:00
临时表数据无法使用  发帖心情 Post By:2019/7/29 15:11:00 [只看该作者]

代码如下:
Dim g As New GroupTableBuilder("sglsb", DataTables("car_accident"))
g.Groups.AddDef("sg_rq", DateGroupEnum.Year, "year")
g.Groups.AddDef("sg_rq",DateGroupEnum.Month, "month")
g.Totals.AddDef("sg_rq",AggregateEnum.Count, "num")
g.SamePeriodGrowth = True
g.CircleGrowth = True
g.Build()

生成的结果如图

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

无法将这个临时表同内环比数据读取出来。

使用的代码是

Dim sgr As Row = Tables("sglsb").current

msgbox (sgr("环比增长"))
msgbox (sgr("CircleGrowth"))

2个msgbox提示报错:  列“xxxx”不属于表 sglsb。




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


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/29 15:18:00 [只看该作者]

环比增长应该是标题,统计表生成的列名不一定是这个。打开表结构查看真正的列名

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


加好友 发短信
等级:幼狐 帖子:166 积分:1613 威望:0 精华:0 注册:2018/3/12 9:22:00
  发帖心情 Post By:2019/7/29 21:33:00 [只看该作者]

Dim y As Integer = Date.Today.Year
Dim m As Integer = Date.Today.Month
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(y, m)) '获取本月的最后一天


Dim sglsg As New GroupTableBuilder("sglsb", DataTables("car_accident"))
sglsg.Groups.AddDef("sg_rq", DateGroupEnum.Year, "year")
sglsg.Groups.AddDef("sg_rq",DateGroupEnum.Month, "month")
sglsg.Totals.AddDef("sg_rq",AggregateEnum.Count, "num")
sglsg.SamePeriodGrowth = True
sglsg.CircleGrowth = True
sglsg.Build()''


Dim dr As Row
dr = Tables("sglsb").Find("year = y  and  month =  m ")
If dr IsNot Nothing Then '如果找到的话
    msgbox(dr(numcle))
End If





黄色字体语句哪里不正确?   语句是想执行,搜索本月的记录,


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


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/29 21:47:00 [只看该作者]

dr = DataTables("sglsb").Find("year = " & y & "  and  month =  " & m )

[此贴子已经被作者于2019/7/30 10:34:03编辑过]

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


加好友 发短信
等级:幼狐 帖子:166 积分:1613 威望:0 精华:0 注册:2018/3/12 9:22:00
  发帖心情 Post By:2019/7/30 8:47:00 [只看该作者]

和我的写法报错一样.


我的y 和 m 定义的是int

写成 dr = Tables("sglsb").Find("year =  & y   and  month =  & m ")
和   dr = Tables("sglsb").Find(year =  & y   and  month =  & m )
也是错误


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


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

请认真看,4楼的用法不可能有问题。上传具体实例说明

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


加好友 发短信
等级:幼狐 帖子:166 积分:1613 威望:0 精华:0 注册:2018/3/12 9:22:00
  发帖心情 Post By:2019/7/30 10:04:00 [只看该作者]

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


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


加好友 发短信
等级:超级版主 帖子:107861 积分:548662 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/30 10:34:00 [只看该作者]

应该是DataTables("a").Find

Dim dr As DataRow
dr =DataTables("a").Find("year = " & y & "  and  month =  " & m )
If dr IsNot Nothing Then '如果找到的话
    msgbox(dr("cle"))
End If

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


加好友 发短信
等级:幼狐 帖子:166 积分:1613 威望:0 精华:0 注册:2018/3/12 9:22:00
  发帖心情 Post By:2019/7/30 13:47:00 [只看该作者]

已OK


概念问题。


生成的临时表也是DataTables

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


加好友 发短信
等级:幼狐 帖子:166 积分:1613 威望:0 精华:0 注册:2018/3/12 9:22:00
  发帖心情 Post By:2019/7/30 16:39:00 [只看该作者]

示例七


Dim g As New GroupTableBuilder("统计表2", DataTables("订单"))

g.Groups.AddDef("日期", DateGroupEnum.Year, "年")

g.Groups.AddDef("日期", "月")

g.Totals.AddDef("数量")

g.SamePeriodGrowth = True

g.CircleGrowth= True

g.Build()




上述帮助里的例子,

g.SamePeriodGrowth = True

g.CircleGrowth= True

环比是不是默认和上行数据进行比较而不进行判断




如图


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




能否理解为,如果我不知道表内的月份是否有缺失,环比这个值最好使用代码编写,而不是例子中的语句直接生成




 回到顶部
总数 11 1 2 下一页