主题：目录文件找不到

老师，我做测试在命令窗口中输入

 

For Each file As String In filesys .GetFiles("C:\Users\19880034\Documents\Foxtable项目\")
Output.Show(file)
Next

可以看到文件 合同明细.xls

 

但输入For Each file As String In filesys .GetFiles("C:\Users\19880034\Documents\Foxtable项目\合同明细.xls")
Output.Show(file)
Next

 

却出错！我需要利用合同明细的一些数据再返输入到另一个表中。

此主题相关图片如下：spximage2.jpg

此主题相关图片如下：spximage2.jpg

是的，我就是要操作Excel, 可是出错，我才去命令窗口测试一下。代码如下：

 

For Each file As String In filesys .GetFiles("C:\Users\19880034\Documents\Foxtable项目\合同明细.xls")
    If file.EndsWith(".xls") OrElse file.EndsWith(".xlsx") Then
        Dim Book As New XLS.Book(file)
        Dim Sheet As XLS.Sheet = Book.Sheets(0)
        Dim dr As DataRow = DataTables("销售收入").AddNew
        dr("客户简称") = sheet(4,1).Text
        dr("合同编号") = sheet(5,14).text
        dr("非含税价格") = sheet(9,12).text
        dr("含税价格") = sheet(10,12).text
    End If
Next

老师，一般来说统计表中的合计、总计都放在下面，如果我想把它放在上面，也就是把合计、总计的表格固定住，应该怎么设计Excel模板啊？

此主题相关图片如下：spximage2.jpg

按照指点，设计了一段代码：

在BeforBuild事件中

 

Select Case e.Book.TempLate
    Case "合同明细"
        e.Book.Marks.Add("含税价格",0)
        e.Book.Marks.Add("非含税价格",0)
End Select

 

BuildDetail事件中

Select Case e.Book.TempLate
    Case "合同明细"
        If e.DataRow IsNot Nothing Then
            Dim Filter1 As String = "合同已签 = True"
            Dim nms As List(of String) = DataTables("合同明细").GetValues("计划编号")
            For Each nm As String In nms
                Dim dr As DataRow
                dr("计划编号") = nm
                dr("金额") = "[数量]*[非含税单价]"
            Next
            e.Book.Marks("非含税价格") = DataTables("合同明细").Compute("Sum(金额)")
            e.Book.Marks("含税价格") = DataTables("订单").Compute("Sum(金额)*1.17")
        End If
End Select

此主题相关图片如下：spximage2.jpg


此主题相关图片如下：spximage1.jpg

我的金额列是表达式列，提示找不到列金额