[求助]下列加红字的一段代码如何修改？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

[求助]下列加红字的一段代码如何修改？姓名列有时会以两个人或三个人的名字出现，如王五、刘七、张八，在一个单元格，用顿号分开，这时如何进行计数统计

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("[计数]",Tables("政府会议_任免").Compute("Count(姓名)")) '用代码计算出总的销售数量并替换模板中的合计

wrt.Replace("[列表]",Tables("政府会议_任免").DataTable.GetComboListString("内容",Tables("政府会议_任免").Filter,"序列号").Replace("|",vbcrlf & ""))

wrt.Replace("[文号]",Tables("政府会议_任免").DataTable.GetComboListString("文号",Tables("政府会议_任免").Filter,"序列号").Replace("|","、"))

wrt.Build() '生成报表

wrt.Show() '显示报表

主题：[求助]下列加红字的一段代码如何修改？