- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何自动连续按照编号输出到EXCEL? (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=24885)
-- 发布时间：2012/10/25 16:43:00
-- [求助]如何自动连续按照编号输出到EXCEL?
如何自动连续按照编号输出到EXCEL?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:foxtable问题.rar |
系统界面如下
此主题相关图片如下：clip_image002.jpg
导出入库单的代码如下
Dim str As String = e.Form.Controls("TextBox1").Text
If str > "" Then
Tables("货物明细表").Filter ="入库单编号=\'" & Str & "\'"
Dim Book As New XLS.Book(ProjectPath & "Attachments\\入库单.xlsx")
Dim fl As String = ProjectPath & "Reports\\入库单.xlsx"
Dim Val As Double
Val = DataTables("货物明细表").Compute("Sum(成本总额)","入库单编号=\'" & Str & "\'")
Book.Marks.Add("大写",CUMoney(Format(Val,"f")))
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
End If
只能输入入库单号后，一个一个导出到excel。
模版如下此主题相关图片如下：clip_image003.jpg
希望的结果如下此主题相关图片如下：clip_image004.jpg
-- 发布时间：2012/10/25 17:13:00
--
可以弄，按照订单分组输出报表就行了。自己试试吧，我们没有数据。
最好结合下代码，因为<index>会是连续的。
http://www.foxtable.com/help/topics/1542.htm
-- 发布时间：2012/10/25 20:54:00
--
能不能帮写段代码呀！我还是新手 呵呵 谢谢
-- 发布时间：2012/10/26 9:22:00
--
楼主请附上例子或者项目。
-- 发布时间：2012/10/26 9:54:00
--
1 做好一个按订单号分组输出的报表模版
2 按查询条件以订单号分组输出报表
dim filter1 as string ="查询条件"
Dim V2 As List(Of String)=DataTables("货物明细表").GetUniqueValues(filter1,"入库单编号")
For Each rkdbh As String In V2
Dim Book As New XLS.Book(ProjectPath & "Attachments\\入库单.xlsx")
Dim fl As String = ProjectPath & "Reports\\入库单.xlsx"
Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
next
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()
具体的合计计算,大小写等工作由报表模板完成,不需要写程序代码