主题：目录文件找不到

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

在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