主题：跨表条件汇总

此主题相关图片如下：20p(of@u)h1q4iuida$ba{g.png

老师，我想把会计凭证的借方金额、贷方金额，通过年月+会计科目_一级科目的条件，汇总到，科目汇总表的本期发生额_借方、贷方。我下面这个代码重置列后没有结果出来，不知是哪里有问题呢？请指教一下，谢谢。
此主题相关图片如下：i%z1k)3{qjaqpj56y$urvqd.png

我重置列，年月，借方没有金额出现。我年月那个列，我看是字符型啊

 

上传具体项目测试。

是备份项目后，上传上来吗？

直接把你的项目文件发上来。

1、你的列【会计科目_一级科目】的值有问题，有多余空格，把空格删除后，可以正常计算。

 

或者写代码清除多余空格

 

For Each r As Row In Tables("凭证明细").rows
    For Each c As Col In r.Table.cols
        r(c) = cstr(r(c)).trim
    Next
Next

 

2、报表的问题，做一个按钮，执行下面代码，可以生成对应年月的报表，如

 

DataTables("科目汇总表").LoadFilter = "年月 = '2018-01'"
DataTables("科目汇总表").Load
Dim Book As New XLS.Book(ProjectPath & "Attachments\资产负债表.xls")
Dim fl As String = ProjectPath & "Reports\资产负债表.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()

 

注意：你beforeBuild报表事件代码请删掉

此主题相关图片如下：}eilj9g{~qssspntf7_2nzs.png

老师，我做了个查询窗口，用按
此主题相关图片如下：(0e1b3z4t7i%n9c49%ae4ib.png

键执行代码后，弹出的资产负债表，没有汇总金额。另外，资产负债表里的日期，怎样才能把查询窗口的日期填上去？

1、你foxtable里面的汇总表，应该要先得出统计数据吧？有数据才能导出到excel里面的。

 

2、模板里面，写 [!查询日期]

 

按钮click事件，赋值，如 vars("查询日期") = e.form.controls("combobox1").Text