我今天想做几个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 关联的.怎么才能把其余的行都能打上去呢?

 代码看起来没有什么问题。应该是取得的数据有问题？

 你msgbox(drs.count)看一下