Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助] 报表输出问题


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

主题：[求助] 报表输出问题
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		[求助] 报表输出问题  发帖心情 Post By：2015/5/27 9:42:00 [显示全部帖子]

我做了一个WORD的报表、点击报表输出的时候出现如下提示。请问是什么问题


图片点击可在新窗口打开查看此主题相关图片如下：360截图20150527085654984.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/13 17:48:00 [显示全部帖子]

我想实现统计 【确定已经割接日期】列日期与服务器当前日期相同的数量；以下命令需要怎么修改？

 

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()


e.Form.Controls("TextBox1").text =  "今天新增割接数量:【" & DataTables("宽带帐号割接回访表").Compute("Count(确定已经割接日期)","确定已经割接日期 = '" & dt & "' ")  & "】"


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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/18 9:13:00 [显示全部帖子]

我想实现：当天新增数量 = 当天的统计数量 - 比当天日期小的内容中与当天统计内容相同的 数量，比如数据表如下：

 

日期                内容

2016-04-10    123

2016-04-10    234

 

2016-04-11    123

2016-04-11    235

2016-04-11    333

 

2016-04-12    256

2016-04-12    124

2016-04-12    234

2016-04-12    235

2016-04-12    123

 

11号新增数量 = 2  ；12号新增数量 = 2

 

以下命令中的红色命令该怎么修改？

 

Dim dt As DataTable = DataTables("已割接用户数据表")
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "统计|确定已经割接日期")
'trv1.BuildTree(dt1, "分公司类别|分公司","","编号")
'trv.Nodes.Insert("宽带割接回访表",0)
trv.StopRedraw '停止绘制目录树
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 0 Then '如果是二级节点
        nd.Text =  "已割接帐号【已割接用户总数:"& dt.Compute("Count(统计)"," 统计 <> '' ") & "条】"
    End If
Next
For Each nd As WinForm.TreeNode In trv.AllNodes '遍历所有节点
    If nd.Level = 1 Then '如果是二级节点
        nd.Text =  nd.Text & "【"& dt.Compute("Count(确定已经割接日期)","确定已经割接日期 = '" & nd.DataRow("确定已经割接日期") & "' ") & "】"
    End If
Next
trv.ResumeRedraw '恢复绘制目录树

[此贴子已经被作者于2016/4/18 9:23:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/18 10:28:00 [显示全部帖子]

想实现按【关停日期】进行小计 统计；我以下命令该怎么添加？


图片点击可在新窗口打开查看此主题相关图片如下：360截图20160418093400195.jpg
图片点击可在新窗口打开查看

 

Dim g As New GroupTableBuilder("回访统计表", DataTables("宽带帐号割接回访表")) '要显示统计结果的表名,要进行统计的表
g.Groups.AddDef("关停时间", DateGroupEnum.None) '日期类的统计条件
g.Groups.AddDef("确定已经割接日期", DateGroupEnum.None) '日期类的条件条件
g.Totals.AddDef("确定已经割接日期", AggregateEnum.Count, "割接数量统计") '将要进行数量统计的列 填写到要显示的列
g.Filter = "确定已经割接日期 is not null" '筛选统计内容
g.VerticalTotal = True '统计合计
g.Build() '重新生成记录窗口
Dim t As Table = Tables("割接统计窗口_Table1") '要显示统计结果的表存放到哪里(绑定统计表)
t.DataSource = g.BuildDataSource() '生成表
t.SetColVisibleWidth("关停时间|120|确定已经割接日期|120|割接数量统计|100") '统计表的格式(要显示的列)
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/18 10:42:00 [显示全部帖子]

按【关停时间】进行小计

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


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/18 11:20:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：360截图20160418111947294.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/18 12:26:00 [显示全部帖子]

11楼是使用以下命令实现的统计；要添加什么命令才能增加一个按照【关停时间】列对【割接数量统计】的小计？

 

Dim g As New GroupTableBuilder("回访统计表", DataTables("宽带帐号割接回访表")) '要显示统计结果的表名,要进行统计的表
g.Groups.AddDef("关停时间", DateGroupEnum.None) '日期类的统计条件
g.Groups.AddDef("确定已经割接日期", DateGroupEnum.None) '日期类的条件条件
g.Totals.AddDef("确定已经割接日期", AggregateEnum.Count, "割接数量统计") '将要进行数量统计的列 填写到要显示的列
g.Filter = "确定已经割接日期 is not null" '筛选统计内容
g.VerticalTotal = True '统计合计
g.Build() '重新生成记录窗口
Dim t As Table = Tables("割接统计窗口_Table1") '要显示统计结果的表存放到哪里(绑定统计表)
t.DataSource = g.BuildDataSource() '生成表
t.SetColVisibleWidth("关停时间|120|确定已经割接日期|120|割接数量统计|100") '统计表的格式(要显示的列)
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/18 12:52:00 [显示全部帖子]

我的意思是要写成在统计窗口的命令；因为刚才在 【数据统计/汇总模式】中是可以直接对 临时表 进行小计统计；但是在我的【割接统计窗口】中却无法显示小计结果。
图片点击可在新窗口打开查看此主题相关图片如下：360截图20160418125137431.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/18 15:14:00 [显示全部帖子]

1、在以下命令中、增加什么命令能够实现汇总统计？

 

2、在以下命令中，【关停时间】为空、【确定已经割接日期】不为空的内容怎么没有被统计出来？

 

 
图片点击可在新窗口打开查看此主题相关图片如下：360截图20160418151327024.jpg
图片点击可在新窗口打开查看

 

 

Dim g2 As New GroupTableBuilder("回访统计表2", DataTables("宽带帐号割接回访表")) '要显示统计结果的表名,要进行统计的表
g2.Groups.AddDef("关停时间", DateGroupEnum.None) '日期类的统计条件
g2.Totals.AddDef("关停时间", AggregateEnum.Count, "关停数量统计") '将要进行数量统计的列 填写到要显示的列
g2.Build() '重新生成记录窗口

Dim t2 As Table = Tables("割接统计窗口_Table2") '要显示统计结果的表存放到哪里(绑定统计表)
t2.DataSource = g2.BuildDataSource() '生成表
t2.SetColVisibleWidth("关停时间|120|关停数量统计|120|割接数量统计|120") '统计表的格式(要显示的列)

t2.DataTable.DataCols.Add("割接数量统计", Gettype(Double))
For Each r1 As Row In t2.Rows
    Dim c_gt1 As Integer = DataTables("宽带帐号割接回访表").compute("count(确定已经割接日期)", "关停时间 = '"& r1("关停时间") & "' ")
    r1("割接数量统计") = c_gt1
Next


图片点击可在新窗口打开查看此主题相关图片如下：360截图20160418151006768.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2016/4/18 15:15:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wumingrong1
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1029 积分：6497 威望：0 精华：0 注册：2014/1/3 12:49:00 		  发帖心情 Post By：2016/4/25 9:19:00 [显示全部帖子]

在表的 AfterLoad 中写有以下命令； 由于 e.Form.Controls("TextBox1").text = 后面的内容太长、很难编辑；有没有办法让命令可以分行编辑？

 

 

Dim cmd As New SQLCommand
Dim dt As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt = cmd.ExecuteScalar()


e.Form.Controls("TextBox1").text = "割接统计: 割接工单【" & DataTables("宽带帐号割接回访表").Compute("Count(割接情况)"," 割接情况 <> '' ") & "】 未割接【" & DataTables("宽带帐号割接回访表").Compute("Count(割接情况)"," 割接情况 = '未割接' ") & "】 已割接【" & DataTables("宽带帐号割接回访表").Compute("Count(割接情况)"," 割接情况 = '已割接' ") & "】" &vbcrlf & vbcrlf & "今天新增割接数量:【" & DataTables("宽带帐号割接回访表").Compute("Count(确定已经割接日期)","确定已经割接日期 >= '" & Format(dt, "yyyy-MM-dd") & "' ")  & "】" & vbcrlf & vbcrlf & "未割接工单分类:" & vbcrlf & "无帐号期限信息【" & DataTables("宽带帐号割接回访表").Compute("Count(用户是否过期)"," 割接情况 = '未割接' and 用户是否过期 = '无帐号期限信息' ")  & "】" & vbcrlf &"用户帐号未到期【" & DataTables("宽带帐号割接回访表").Compute("Count(用户是否过期)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' ")  & "】" & vbcrlf &"用户帐号已到期【" & DataTables("宽带帐号割接回访表").Compute("Count(用户是否过期)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号已到期' ")  & "】" & vbcrlf & vbcrlf &"未割接帐号未到期工单分类:"& vbcrlf &"待回访【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接'and 用户是否过期 = '用户帐号未到期'  and 回访_结果 = '待回访' ")  & "】" & vbcrlf &"成功回访(用户表示会自行修改)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(用户表示会自行修改)' ")  & "】" & vbcrlf &"成功回访(等用户在家再联系)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(等用户在家再联系)' ")   & "】" & vbcrlf &"成功回访(需预约上门处理)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(需预约上门处理)' ")   & "】" & vbcrlf &"成功回访(用户表示不再使用)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(用户表示不再使用)' ")   & "】" & vbcrlf &"继续回访(用户没有接电话或没空)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接'and 用户是否过期 = '用户帐号未到期'  and 回访_结果 = '继续回访(用户没有接电话或没空)' ")   & "】" & vbcrlf &"无法联系(联系方式错误)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '无法联系(联系方式错误)' ")   & "】" & vbcrlf &"成功回访(用户表示已经修改)【" & DataTables("宽带帐号割接回访表").Compute("Count(回访_结果)"," 割接情况 = '未割接' and 用户是否过期 = '用户帐号未到期' and 回访_结果 = '成功回访(用户表示已经修改)' ") &"】" & vbcrlf & vbcrlf &"已割接工单关停情况:"& vbcrlf &"未关停【" & DataTables("宽带帐号割接回访表").Compute("Count(关停情况)"," 割接情况 = '已割接' and 关停情况 = '未关停' ")  & "】" & vbcrlf & "已关停【" & DataTables("宽带帐号割接回访表").Compute("Count(关停情况)"," 割接情况 = '已割接' and 关停情况 = '已关停'  ")  & "】" & vbcrlf & vbcrlf & "未割接工单关停情况:"& vbcrlf &"未关停【" & DataTables("宽带帐号割接回访表").Compute("Count(关停情况)"," 割接情况 = '未割接' and 关停情况 = '未关停' ")  & "】" & vbcrlf & "已关停【" & DataTables("宽带帐号割接回访表").Compute("Count(关停情况)"," 割接情况 = '未割接' and 关停情况 = '已关停'  ")  & "】"

 
 回到顶部
总数 12 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.05322 秒, 5 次数据查询