主题：[求助]word模板遇到难题了！！

想写一个报告，报告下方要附一个表，如：姓名，职务等，但现在是根据一行生成一个报告，我想要的是：在一个报告内，红字的内容是根据表格每行内容生成的，不要一行生成一个报告，怎么办，求助！！！！！

用标记：
 
http://www.foxtable.com/help/topics/2890.htm

 
例如
 
Dim tm As String  = ProjectPath & "Attachments\模版.doc"
Dim fl As String = ProjectPath & "Reports\模版.doc"
Dim wrt As New WordReport(Tables("表"),tm,fl) '定义一个WordReport
wrt.Replace("[列表]",DataTables("表").GetComboListString("列").Replace("|",vbcrlf))
wrt.Build() '生成报表
wrt.Show() '显示报表

狐爸，wrt.Replace("[列表]",DataTables("表").GetComboListString("列").Replace("|",vbcrlf)) 

组合我已经弄了，改上述代码，组合表达式为：<IIF([拟免职务空], "免去" &[姓名] & "同志" & [拟免职务] & ";", [姓名] & "同志"  & "任" & [拟任职务] & ";")>

那就逐行组合合并：

 

dim s as string

for Each dr as datarow in datatables("xxx").datarows

   if s > ""  then

      s = s & vbcrlf

   end if

   s = s & dr("列1") & dr("列2")

next

wrt.Replace("[列表]",DataTables("表").GetComboListString("列").Replace("|",vbcrlf)) ，列表是表的列字段吗，

你没搞清楚GetComboListString的作用吧http://www.foxtable.com/help/topics/1435.htm

就是你在模版中插入的[列表]，就和普通的[单价]、[单位]一样，你可以取任何名称，在生成报表前替换即可,例如[xxx]都行。

 

请认真看一下：

http://www.foxtable.com/help/topics/2890.htm

 

 

说道底，在模板中无法通过表达式实现的计算，就插入一个标记，在生成模版前，用代码生成内容替换掉模版中的标记。

谢谢

狐爸，根据你给的思路和代码，生成了报告，但有一个问题，生成的从第二行之后，不能和第第一行左对齐，这是怎么回事，请看：红色的部分不能和加黑的一行左对齐。