在报表中把相同ID号放在一起打印[求助]

盗到稻

请高手求助,报表中让一组ID号例如全部是474的打在一起,下个478ID号的分页,但问题是用判断检查时他都会把下一个不同ID组的第一个打印出来.有没办法让报表只打印一个ID号码组的方法.

Me.Section(0).Visible = True
Me.Section(6).Visible = False
Me.Section(6).ForceNewPage = 0
Me.Break1.Visible = False
Dim mvCol1 As String
LineCnt = LineCnt + 1
If LineCnt = 1 Then mvCol = Str(Me.CODE)
    mvCol1 = Str(Me.CODE)
Print mvCol & Space(4) & mvCol1
If mvCol1 <> mvCol Then
    Me.Section(6).Visible = True
    Me.Section(6).ForceNewPage = 2
    Me.Section(6).Visible = False
End If
If Me.Section(6).Visible = True Me.Section(0).Visible = True
Me.Section(6).Visible = False
Me.Section(6).ForceNewPage = 0
Me.Break1.Visible = False
Dim mvCol1 As String
LineCnt = LineCnt + 1
If LineCnt = 1 Then mvCol = Str(Me.CODE)
    mvCol1 = Str(Me.CODE)
Print mvCol & Space(4) & mvCol1
If mvCol1 <> mvCol Then
    Me.Section(6).Visible = True
    Me.Section(6).ForceNewPage = 2
    Me.Section(6).Visible = False
End If
If Me.Section(6).Visible = True Or Me.Section(6).ForceNewPage = 2 Then LineCnt = 0Then LineCnt = 0

ADAM

ID組是表中字段嗎,
可不可以用分組\排序來分頁呢....
????

盗到稻

这样得把主体修得小小的。我的想法是报表设为纸张大小（因为上面要放很多文本框），用ADO可以打印，但还是会打印下一个不ID号的来

andymark

这个问题有点类似财务系统的明细帐打印

盗到稻

我这个报表打印比明细帐复杂，因为这个报表不是按顺序打印的，它要求不同的数据要分别在指定的位置打印，页后面的打印数据的位置还要根据前面数据的多与少作出变化，且分两页或多页打印，而相同的页的数据放在相同ID号的备注字段里，这些相同ID号有多有少(如相同的001ID号有38个，而002ID号有45个），我的想法是先把这些相同的ID号读出到一个页面上，同时并检测并判断数据把某些数据放在报表某位置上打印。提取数据没问题，就是要如何才能把相同ID号的数据进行分页，可以用ADAM兄说的分组/排序，但是这样主体栏变窄，放不了文本框归我提出的数据。就算放了，但它会重复打印，如有38个的报表出来也有38个，有45个会一栏一栏出45个。而需求是不管是多少个，最后出的须是一个，38个也好，45个也好，已经在里面了，所以只要一个。

盗到稻

不过现地把此报表放在另一个报表中实现！

ADAM

你寫的代碼,我還不會呢,,呵呵........
不如你把文件傳上來,說說要求,大家一起想辦法,
說不定有其它解決途徑...
嘿嘿........

盗到稻

我也想，只是里面有电信客户的资料，公司不同意上传！

ADAM

你另外做一個庫,表格定義一樣,
然扣用亂數產生,填一些資料進去.
就OK了,
我原來上傳了一個BOM,也包含公司信息
也是將信息處理后傳上來的,
在這里只討論方法,不用看信息
嘿.....