主题：专业报表

rx.DataBinding.DataSource = BindTables("审计明细")，绑定表中想绑定指定条件的行可以吗？

 

'Select("[科目编号] = '1001'")

打印之前，设置筛选

 

Tables("审计明细").Filter = "[科目编号] = '1001'"

设计了两张表，审计总表与审计明细，审计总表中的每一个会计科目都会在审计明细中有多条记录，希望在选择总表中一行（即一个科目）审计明细中相应的记录也打印到这张表上，比如总账科目应收账款会有好多明细科目，我想在选择应收账款科目并选择专业报表打印就能打印出这个科目的总体情况及相应的明细。

设置条件

 

Tables("审计明细").Filter = "[科目编号] = '" & Tables("审计总表").Current("科目编号") & "'"

Dim rx As New prt.RenderText
Tables("审计明细").Filter = "[科目编号] = '" & Tables("审计总表").Current("科目编号") & "'"
rx.DataBinding.DataSource = BindTables("审计明细")

rx.Text= "[Fields!科目名称.Value]" &"[Fields!期末未审数.Value]"&"[Fields!账项调整_借方.Value]" &"[Fields!账项调整_贷方.Value]" &"[Fields!重分类调整_借方.Value]" &"[Fields!重分类调整_贷方.Value]"&"[Fields!期末审定数.Value]"&"[Fields!上期末审定数.Value]"
doc.body.Children.Add(rx)

上述代码输出的结果如下：

现金10000001000770010087001000000

能否设计一个表格，把相应的内容放在表格中，表格可以设计，但是怎么把内容放入表格。<!--EndFragment-->

绑定的方法 ： http://www.foxtable.com/help/topics/1256.htm

 

灵活的方法：http://www.foxtable.com/help/topics/1233.htm