主题：WORD报表问题

 汗，看不懂你想表达什么。你的模板是打印子表第一行的数据，文件名又用子表当前行的，真心不知道你想做什么

 

If e.Col.name="联络函"then
    Dim dr As Row = Tables("资料交接管理表").Current
    Dim tm As String  = ProjectPath & "Attachments\xx内部联络函模板.doc" '指定模板文件
    Dim fl As String = ProjectPath & "Attachments" & "\" & "A++工作成果资料" & "\" & "工作联络&交接单文件夹" & "\" & "联络函" & "\" & "关于" & dr("所属项目") & dr("文件名称") & User.name & format(Date.today,"MM月dd日") & "给" & dr("接收部门") & "并抄送到" & dr("转呈部门") & "的联络函.doc"   '指定目标文件
    Dim wrt As New WordReport(Tables("项目资料"),tm,fl) '定义一个WordReport
    wrt.Build() '逐行生成报表
    wrt.Show() '显示报表
End If
If e.Col.name="交接函"then
    Dim dr As Row = Tables("资料交接管理表").Current
    Dim tm As String  = ProjectPath & "Attachments\文件交接函.doc" '指定模板文件
    Dim fl As String = ProjectPath & "Attachments" & "\" & "A++工作成果资料" & "\" & "工作联络&交接单文件夹" & "\" & "交接函" & "\" & "关于" & dr("所属项目") & dr("文件名称") & User.name & format(Date.today,"MM月dd日") & "给" & dr("接收部门") & "并抄送到" & dr("转呈部门") & "的交接函.doc"   '指定目标文件
    Dim wrt As New WordReport(Tables("项目资料"),tm,fl) '定义一个WordReport
    wrt.Build() '逐行生成报表
    wrt.Show() '显示报表
End If

 你请好好看一下word报表再做可好，你的逻辑十分混乱