主题：[求助]如何自动连续按照编号输出到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

 可以弄，按照订单分组输出报表就行了。自己试试吧，我们没有数据。

 最好结合下代码，因为<index>会是连续的。

 http://www.foxtable.com/help/topics/1542.htm

能不能帮写段代码呀！我还是新手 呵呵 谢谢

 楼主请附上例子或者项目。

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()

具体的合计计算,大小写等工作由报表模板完成,不需要写程序代码