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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 统计问题

共有4389人关注过本帖树形打印复制链接主题：统计问题

cglsg5076

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/3/4 12:41:00 [只看该作者]

老师，请教一个问题

关于TopicBar和Navbar样式的改变，我如何通过程序的办法改变他们的样式，帮助里只是在设计阶段，运行阶段如何用代码改变样式？

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106688 积分：542629 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2017/3/4 14:27:00 [只看该作者]

Dim bar As WinForm.TopicBar = e.Form.Controls("TopicBar1")
bar.VisualStyle = IVisualStyle.Office2010Black

支持样式的控件都可以这样用：http://www.foxtable.com/webhelp/scr/3093.htm

cglsg5076

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/3/5 12:00:00 [只看该作者]

老师好，我有表ProjectListAll，该表有Date列、PrimeProduction列、InfillProduction列，这三列分别是每天的日期和每天的生产量。我需要生成一个统计表total，该表有day列、week列、month列、all列，该表total是用于统计PrimeProduction和InfillProduction。

我用下面代码生成，可结果不是需要的，我该如何更改代码。谢谢！

Dim b As New GroupTableBuilder("统计表1",DataTables("ProjectListAll"))

b.Filter = "[Date] >= #1/1/2016# And [Date]<= #12/31/2016#"

b.Groups.AddDef("T3D_PrimeProduction")'添加客户列用于分组

''添加日期列用于分组,按季度分组,并用"季度"代替原名称

b.Groups.AddDef("Date",DateGroupEnum.week,"week")

''添加客户列用于统计,其实对于Count类型的统计,可用任何列作为统计列.

b.Totals.AddDef("T3D_InfillProduction")

b.Groups.AddDef("Date",DateGroupEnum.month,"month")

b.Build '生成统计表

MainTable = Tables("统计表1") '打开生成的统计表

有点色

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/5 12:38:00 [只看该作者]

Dim b As New GroupTableBuilder("统计表1",DataTables("ProjectListAll"))
b.Filter = "[Date] >= #1/1/2016# And [Date]<= #12/31/2016#"
b.Groups.AddDef("Date",DateGroupEnum.Year,"year")
b.Groups.AddDef("Date",DateGroupEnum.month,"month")
b.Groups.AddDef("Date",DateGroupEnum.week,"week")
'b.Groups.AddDef("T3D_PrimeProduction")'添加客户列用于分组
b.Totals.AddDef("T3D_InfillProduction")
b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表

你需要什么效果，做个例子发上来看看

cglsg5076

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/3/5 15:59:00 [只看该作者]

老师好，附件是数据和希望生成的表，其中的day是截止日期，也就是希望统计截止到今天的week、month、year和Project。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:pdl.xls

cglsg5076

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/3/5 16:00:00 [只看该作者]

就是希望统计截止到今天的week、month、year和Project的PrimeProduction和InfillProduction。谢谢

有点色

小大 17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/5 22:31:00 [只看该作者]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目20.table

http://www.foxtable.com/webhelp/scr/2720.htm

cglsg5076

小大 18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/3/7 9:14:00 [只看该作者]

此主题相关图片如下：错误提示.png

谢谢老师。

依据老师的指导，我现在已经可以能够按截止日期统计周、月和整个项目的生产统计。但是统计结果放到统计表里，代码编译不通，提示错误，。我代码如下：

请问老师，我该如何更改代码。

Dim tjdate As Date =e.Form.Controls("Calendar1").value

With DataTables("统计表")'将统计结果放在这里

Dim filter2 As String = "date >= #" & tjdate & "# and date < #" & tjdate.AddDays(1) & "#"

Dim SumInDay As Single= DataTables("ProjectListAll").Compute("sum(PrimeProduction)", filter)

e.DataRow("day")=SumInDay

有点色

小大 19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/3/7 9:36:00 [只看该作者]

参考代码

Dim tjdate As Date =e.Form.Controls("Calendar1").value
Dim dt As DataTable = DataTables("统计表")'将统计结果放在这里
dt.datarows.Clear
Dim nr As DataRow = dt.AddNew
nr("名称") = "PrimeProduction"
Dim filter2 As String = "date >= #" & tjdate & "# and date < #" & tjdate.AddDays(1) & "#"
Dim SumInDay As Single= DataTables("ProjectListAll").Compute("sum(PrimeProduction)", filter)
nr("day")=SumInDay

cglsg5076

小大 20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1011 积分：6507 威望：0 精华：0 注册：2015/2/25 23:14:00

Post By：2017/3/7 12:24:00 [只看该作者]

老师，请问我的程序有点长，下面的怎么改？我想加入工区的判别条件，编译出错。

Dim filter3 As String = "date <= #" & tjdate & "# and date > #" & tjdate.AddDays(-monthday) & "#" And [Block]='Bilby2D'"

下一主题 >> << 上一主题

总数 66 上一页 1 2 3 4 5 6 7 下一页

主题：统计问题