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