以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求Excel打印模板,有项目例子  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=131823)

--  作者:yjf123
--  发布时间:2019/3/7 10:14:00
--  求Excel打印模板,有项目例子
求Excel打印模板,有项目例子。需要输出正确的例子那样的,在文件里面有。
也做了模板,但不成功。
谢谢版主哈。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:excel打印.zip



--  作者:有点甜
--  发布时间:2019/3/7 11:24:00
--  

这个意思?

 

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

统计参考 http://www.foxtable.com/webhelp/scr/1389.htm

 


--  作者:yjf123
--  发布时间:2019/3/7 11:34:00
--  
对,甜版厉害,但还有下面的合计怎么写呢
--  作者:有点甜
--  发布时间:2019/3/7 11:39:00
--  

统计,参考这里处理,不清楚你要统计哪些列的数据

 

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

 


--  作者:yjf123
--  发布时间:2019/3/7 12:02:00
--  
安装这样 每列都统计

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

--  作者:有点甜
--  发布时间:2019/3/7 12:53:00
--  

1、修改模板如

 

<cdbl([米数加送数])>
<cdbl(*[米数加送数+1]*)>
<cdbl(*[米数加送数+2]*)>


 

2、参考模板

 

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

 

3、参考代码

 

Dim fname As String = e.Form.name

\'Dim dr As Row=Tables(fname & "_Table1").Current
Dim f As String = " 订单号 = \'DDH190304\'"

Dim n As String = ProjectPath & "01模板.xls"
Dim Book As New XLS.Book(n)
\'Dim r As Row=Tables(fname & "_Table1").Current
Dim fl As String = ProjectPath & "打印输出.xls"

book.AddDataTable("打印主表","主数据源","select * from DY_主表 ") \'添加子表
book.AddDataTable("打印颜色列表","主数据源","select * from DY_颜色统计") \'添加子表    2
book.AddDataTable("打印颜色统计","主数据源","select * from DY_颜色统计") \'添加子表    2
book.AddDataTable("打印码单明细","主数据源","select * from YW_检验码单 where " &  f) \'添加子表

book.AddRelation("打印主表","订单号","打印颜色列表","订单号") \'建立关联2
book.AddRelation("打印主表","订单号","打印颜色统计","订单号") \'建立关联2
book.AddRelation("打印颜色统计","颜色","打印码单明细","颜色") \'建立关联2

Book.Build()
Book.Save(fl)

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
Dim Rg As MSExcel.Range
For i As Integer = 1 To ws.UsedRange.Rows.count
    If Ws.Cells(i,1).text = "TTL:" Then
        Ws.Cells(i, 2).FormulaR1C1 = "=COUNT(R[-40]C[1]:R[-1]C[1]"
        Ws.Cells(i, 4).FormulaR1C1 = "=SUM(R[-40]C:R[-1]C)"
        Ws.Cells(i, 6).FormulaR1C1 = "=COUNT(R[-40]C[2]:R[-1]C[2]"
        Ws.Cells(i, 7).FormulaR1C1 = "=COUNT(R[-40]C:R[-1]C"
    End If
Next
App.Visible = True


[此贴子已经被作者于2019/3/7 15:05:23编辑过]

--  作者:yjf123
--  发布时间:2019/3/7 13:42:00
--  
公式不对哇,出来这样结果
图片点击可在新窗口打开查看此主题相关图片如下:qq截图20190307134147.png
图片点击可在新窗口打开查看

--  作者:有点甜
--  发布时间:2019/3/7 15:04:00
--  
下载6楼模板啊。如果还有问题具体项目发上来测试。
--  作者:有点甜
--  发布时间:2019/3/7 15:06:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:01模板.xls

--  作者:yjf123
--  发布时间:2019/3/8 8:42:00
--  
就是用了那个模板的,但执行代码,打印出来,给单元格写入公式,然后不对的

MSExcel.Application电脑用不了,改为狐表内置的Excel执行代码的
[此贴子已经被作者于2019/3/8 8:42:49编辑过]