入库单报表制作与打印问题（求高手帮忙）

Question

大家好！目前在做一个进销存软件，碰到一个难题，开发工具是VB6.0+SQL 2000！
我设计的入库单是由入库单单头与单身，分别对应两张不同的数据表，单头主要有“入库单单号”、“入库日期”、“供应商”、“仓库”，单身内容有“入库单单号”、“商品款号”、“商品颜色”、“商品尺码”、“商品入库数量”，现在就是用报表设计器做报表时，好像没办法让入库单单头的内容在一起，然后根据入库单单头的相关信息显示出一条一条的单身信息，两者由入库单单号相联系，入库单单头只打印一次，但入库单单身内容可能有好多条，有几页，盼高手，如何解决该问题，谢谢！

Answer 1

先查到入库单单头,然后用个循环将各个单身的信息查到追加到一个记录集上 
rs.addnew  方法

Answer 2

我还以为你是想把所有的单身内的记录全部一起输出呢,原来不是你的查询语句把单头的信息带进去就可以了
select 单身.入库单单号,商品款号,商品颜色,商品尺码,商品入库数量 from 单身 left join 单头 on 单身.入库单单号=单头.入库单单号

Answer 3

select 单身.入库单单号,商品款号,商品颜色,商品尺码,商品入库数量,单头.入库日期,单头.供应商,单头.仓库 from 单身 left join 单头 on 单身.入库单单号=单头.入库单单号

Answer 4

你那些单身的信息怎么取的,单头的信息照样取
只是单身的信息可能是直接绑定的吧 (Set DataReport1.DataSource = Rs)
单头的信息可以再查出来 赋值给报表设计器上的控件也可以先就在你的源窗体中记录号单头的信息,这样读取,一个道理
    With DataReport1    
        .Sections("section4").Controls("label1").Caption = "入库日期:" & form1.Text1.Text
        .Sections("section4").Controls("label2").Caption = "供应商:" & form1.Text2.Text
        .Sections("section4").Controls("label3").Caption = "仓库:" & form1.Text3.Text
    End With