主题：关于WORD 报表问题

我今天想做几个WORD 报表,自动生成出货单.但在做的过程中,如果订单明细里有两行以上,每次都只能生成一行.

Dim drs As List(of DataRow) = DataTables("销售订单明细").Select("订单编号 = " & Tables("销售订单主表").Current("_Identify") & "")

Dim tm As String  = ProjectPath & "Attachments\送货单1.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\送货单1.doc" '指定目标文件
Dim wrt As New WordReport(Tables("销售订单明细"),tm,fl) '定义一个WordReport
For Each dr As DataRow In drs '逐行生成报表

        wrt.BuildOne(dr)
Next
  
   wrt.Show() '显示报表

代码到底哪里出了问题,我试过用MESS 的方法度过,每次都会出现几次,但打出来的表也只有一行.

我的订单主表 是用Identify 关联的.怎么才能把其余的行都能打上去呢?