| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=110401) |
||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：wenzi187 -- 发布时间：2017/12/2 1:36:00 -- [求助] 接近有8个月没有弄狐表了。。感觉都忘记的差不多了。除了狐表本身的功能还会用一点，代码基本靠帮助查找。 在做一个报表。报表比较麻烦。 思路很乱。具体如下： 1、该报表的数据已经有了的。是需要通过统计汇总之后，然后把数据填入到WORD内。 2、word对报表提出了相关要求，类似于简报。每个月的都是一样的。变量特别多。 举例：某一事故发生后，该事故的按照不同种类可以划分为：辖区派出所，街道，社区，事故类型。而我的报表是需要以文字体现：XX区发生了多少起事故，排名前三的都是XXXX，XX街道发生了多少事故，排名前三的都是XXXX、XX事故类型有多少起等等。 除了文字表达之外，还需要数据形式表达，因此，WORD内的表格可以看做基本都是由变量组成的。 我最开始的思路是，把XX区，XX街道，XX类型，建立分表，然后把报表拆分开，分别生成之后，在汇总到一起。讲真的，弄了四天了，只完成了前面的部分，建立分表，统计数据，建立报表（excel）。为什么说excel呢，因为word报表我实在弄不了，需要写代码了。总报表内的是由多段文字和表格组成的。 然而就在刚刚。我想了下，目前这不是我一个人能完成的。所以我来求助了。 先说下新的思路吧: EXCEL 数据 --- 导入狐表 -- 导出为一个WORD -- 完成 谁能给个简单清晰的思路我么！！！！ 脑袋都炸了！！！ 附件是WORD报表的格式。。
|
||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：wenzi187 -- 发布时间：2017/12/2 1:41:00 -- 上传不了，我只有粘贴了。所有数字的部分，基本都是变量。 1-10月分析 2017年1至10月份，全区消防部队共接警出动1929起。其中火灾188起，抢险救援979起，社会救助604起，公务执勤51起，其他出动107起。火灾188起，同比上升1.6%，死亡1人。 10月份（10月1日0时至31日24时），全区消防部队共接警出动157起。其中火灾11起，抢险救援83起，社会救助52起，公务执勤16起，其他出动5起。其中火灾11起，火灾数同比持平、环比下降2.7%，未发生亡人火灾事故。 一、2017年1至10月份全区火灾分析 （一）1至10月份全区火灾发生区域分析 1至10月份，全区火灾总体呈上升趋势，共发生火灾188起，火灾防控压力依然很大。火灾起数排名靠前的街道为洪山街（41起）、和平街（38起）、珞南街（31起）；火灾起数同比上升幅度较大的街道为梨园街、珞南街、和平街。 火灾起数排名靠前的派出所为狮子山所（24起）、洪山所（21起）、北港所（21起）、和平所（21起）；火灾起数同比上升幅度较大的派出所为喻家山所、车站所、马房山所。 |
||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：wenzi187 -- 发布时间：2017/12/2 1:45:00 -- 2017年1至10月份各街道火灾情况如下表：
|
||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：有点蓝 -- 发布时间：2017/12/2 8:44:00 -- 使用占位符，用Replace替换报表内容：http://www.foxtable.com/webhelp/scr/2890.htm 1-10月分析 2017年1至10月份，全区消防部队共接警出动【出动】起。其中火灾【火灾】起，抢险救援【救援】起，社会救助604起，公务执勤51起，其他出动107起。火灾188起，同比上升1.6%，死亡1人。 Dim tm As String = ProjectPath & "Attachments\\订单.doc" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\订单.doc" \'指定目标文件 Dim wrt As New WordReport(Tables("订单"),tm,fl) \'定义一个WordReport wrt.Replace("【出动】",1929) \'这里的1929可以从数据库中查询得来，下同 wrt.Replace("【火灾】",188) \'这里的1929可以从数据库中查询得来，下同 wrt.Replace("【救援】",979) \'这里的1929可以从数据库中查询得来，下同 wrt.Build() \'生成报表 wrt.Show() \'显示报表 [此贴子已经被作者于2017/12/2 10:42:00编辑过]
|
||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：wenzi187 -- 发布时间：2017/12/2 18:46:00 -- Dim r As WinForm.ComboBox = e.Form.Controls("ComboBox1") （窗口1中变量的调用） Dim g As New CrossTableBuilder("派出所", DataTables("年2017"), "[月] = r") g.HGroups.AddDef("派出所") g.VGroups.AddDef("年") g.Totals.AddDef("数量", "数量") g.Filter = "[月] = r" g.VerticalProportion = True g.Subtotal = True g.Build() MainTable = Tables("派出所") 大致就是这样，。。是不是变量没有写对？怎么写啊！
[此贴子已经被作者于2017/12/2 18:56:43编辑过]
|
||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：wenzi187 -- 发布时间：2017/12/2 18:46:00 -- @有点红 @有点浪 [此贴子已经被作者于2017/12/2 18:57:07编辑过]
|
||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：有点甜 -- 发布时间：2017/12/3 21:52:00 -- 以下是引用wenzi187在2017/12/2 18:46:00的发言：
@有点红 @有点浪 [此贴子已经被作者于2017/12/2 18:57:07编辑过]
单独做一个例子，上传上来说明。
不然就参考 http://www.foxtable.com/webhelp/scr/2890.htm
|
||||||||||||||||||||||||||||||||||||||||||||||||
| -- 作者：wenzi187 -- 发布时间：2017/12/4 23:34:00 -- 谢谢，我已经改过来了。。。
|