[求助]如何按条件查找内容后，显示在替换的word文档文档中？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

用word模板生成文档，在word中设置[姓名2]，条件是在病种分类中含“部分”字段的一行的[姓名]，如何设置，代码如下：（标红的代码）

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("劳动能力鉴定_鉴定").Compute("Count(姓名)", "[鉴委会意见] Like '%完全%'"))

wrt.Replace("[姓名2]",Tables("劳动能力鉴定_鉴定").Compute("[姓名]", "[鉴委会意见] Like '%部分%'"))

wrt.Replace("[不符合条件]",Tables("劳动能力鉴定_鉴定").Compute("Count(姓名)", "[鉴委会意见] Like '%大部分%'or [鉴委会意见] Like '%部分%'"))

wrt.Build() '生成报表

wrt.Show() '显示报表

wrt.Replace("[姓名2]",DataTables("劳动能力鉴定_鉴定").GetComboListString("[姓名]", "[鉴委会意见] Like '%部分%'"))

不行的，出现下列对话框：
图片点击可在新窗口打开查看

此主题相关图片如下：截图00.png

目的是找出在[鉴委会意见]中含“部分”字段的第一行的[姓名]，显示为[姓名2]

目的是找出在[鉴委会意见]中含“部分”字段的第一个[姓名]，显示为[姓名2]

第一个？

Dim dr As DataRow = Tables("劳动能力鉴定_鉴定").DataTable.Find("[鉴委会意见] Like '%部分%'")

If dr IsNot Nothing Then

wrt.Replace("[姓名2]",dr("姓名"))

End If

全部这样

wrt.Replace("[姓名2]",Tables("劳动能力鉴定_鉴定").datatable.GetComboListString("[姓名]", "[鉴委会意见] Like '%部分%'"))

为什么我筛选Tables("劳动能力鉴定_鉴定")内容后，显示的名字是Tables("劳动能力鉴定_鉴定")全表的第一个，我想要的是筛选Tables("劳动能力鉴定_鉴定")内容后第一个姓名

Dim idx As Integer = Tables("劳动能力鉴定_鉴定").FindRow("[鉴委会意见] Like '%部分%'")

If idx >= 0 Then '如果找到的话

wrt.Replace("[姓名2]",Tables("劳动能力鉴定_鉴定").Rows(idx)("姓名"))

End If

你太棒了，搞定，

主题：[求助]如何按条件查找内容后，显示在替换的word文档文档中？