主题：[求助]piao据套打设计

方法一： 跟 小委托 一样，把三行的内容编程三列的内容，也就是一行大委托有三行的内容。这样直接绑定列，然后对应的赋值即可；

 

方法二：比如在afterLoad事件直接给各个控件赋值

 

Dim r1 As Row = Tables("表A").Rows(0)

Dim r2 As Row = Tables("表A").Rows(1)

Dim r3 As Row = Tables("表A").Rows(2)

 

e.Form.Controls("TextBox1").Text = r1("第一列")

e.Form.Controls("TextBox2").Text = r1("第二列")

 

e.Form.Controls("TextBox3").Text = r2("第一列")

e.Form.Controls("TextBox4").Text = r2("第二列")

 

e.Form.Controls("TextBox5").Text = r3("第一列")

e.Form.Controls("TextBox6").Text = r3("第二列")

按方法一，是不是得手工重新录入大委托呢？能象excel表那样跨表引用吗，只录一次行吗？方法二我还没看懂。

大委托和小委托是什么关系？按照什么规则填入到大委托？

 

建议你用方法二，你要取出哪一行的内容都可以

 

 

'获取表A的某三行 数据

Dim r1 As Row = Tables("表A").Rows(0)

Dim r2 As Row = Tables("表A").Rows(1)

Dim r3 As Row = Tables("表A").Rows(2)

 

'把第一行数据显示到某些控件

e.Form.Controls("TextBox1").Text = r1("第一列")

e.Form.Controls("TextBox2").Text = r1("第二列")

 

'第二行数据

e.Form.Controls("TextBox3").Text = r2("第一列")

e.Form.Controls("TextBox4").Text = r2("第二列")

 

'第三行数据

e.Form.Controls("TextBox5").Text = r3("第一列")

e.Form.Controls("TextBox6").Text = r3("第二列")

大委托的三行分别为小委托中筛选出的支付中心支付的三行（小委托有两种支付方式），小委托每行打印一张单据，而大委托是三行小委托数据打印一张单据，关键是“金额”是分栏对位套打解决不了，还有个合计金额数也不知道怎样提取？

大委托的一行应为小委托中筛选出的支付中心支付的三行

大委托和小委托是什么关系？按照什么规则填入到大委托？

看13楼，方法二。

 

如果用方法一，同样的，你往表格里面填入小委托选择的行的内容即可。

好，谢谢！

老师：我按你昨天介绍的方法做了，还有些问题无法解决，一是：合计金额生成；二是：金额分位套打代码我按以前从表中提取数据的方法生成各位数，但是不行；三是：如何才能实现全部打印，我现在套用的代码只能打印第一页。请你帮我看一下如何修改，谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账单.table

汗，如下。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:报账单.table