- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]如何按条件查找内容后，显示在替换的word文档文档中？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91551)
-- 发布时间：2016/10/13 10:09:00
-- [求助]如何按条件查找内容后，显示在替换的word文档文档中？
用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() \'显示报表
-- 发布时间：2016/10/13 10:24:00
--
wrt.Replace("[姓名2]",DataTables("劳动能力鉴定_鉴定").GetComboListString("[姓名]", "[鉴委会意见] Like \'%部分%\'"))
-- 发布时间：2016/10/13 10:31:00
--
不行的，出现下列对话框：
此主题相关图片如下：截图00.png
-- 发布时间：2016/10/13 10:33:00
--
目的是找出在[鉴委会意见]中含“部分”字段的第一行的[姓名]，显示为[姓名2]
-- 发布时间：2016/10/13 10:36:00
--
目的是找出在[鉴委会意见]中含“部分”字段的第一个[姓名]，显示为[姓名2] |
-- 发布时间：2016/10/13 10:48:00
--
第一个？
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 \'%部分%\'"))
-- 发布时间：2016/10/13 11:12:00
--
为什么我筛选Tables("劳动能力鉴定_鉴定")内容后，显示的名字是Tables("劳动能力鉴定_鉴定")全表的第一个，我想要的是筛选Tables("劳动能力鉴定_鉴定")内容后第一个姓名
-- 发布时间：2016/10/13 11:24:00
--
Dim idx As Integer = Tables("劳动能力鉴定_鉴定").FindRow("[鉴委会意见] Like \'%部分%\'")
If idx >= 0 Then \'如果找到的话
wrt.Replace("[姓名2]",Tables("劳动能力鉴定_鉴定").Rows(idx)("姓名"))
End If
-- 发布时间：2016/10/13 11:31:00
--
你太棒了，搞定，