- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]word模板引用未关联的表的问题 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=104886)
-- 发布时间：2017/8/7 19:40:00
-- [求助]word模板引用未关联的表的问题
有公司、违法事实、法律条文三个表，公司是违法事实的父表，用案件编码关联，法律条文不关联
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:问题来了.rar |
-- 发布时间：2017/8/7 19:42:00
--
顶
-- 发布时间：2017/8/7 20:30:00
--
用select ：http://www.foxtable.com/webhelp/scr/0400.htm
-- 发布时间：2017/8/7 21:36:00
--
可是要如何表示和“违法事实”对应的“法条编码”列？
-- 发布时间：2017/8/7 21:53:00
--
-- 发布时间：2017/8/8 9:05:00
--
方法一：
Dim t As Table = Tables("公司")
Dim tm As String = ProjectPath & "Attachments\\word模板.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\word模板.doc" \'指定目标文件
Dim wrt As New WordReport(t,tm,fl) \'定义一个WordReport
For i As Integer = t.TopPosition To t.BottomPosition
Dim str As String = ""
For Each dr As DataRow In t.Rows(i).DataRow.GetChildRows("违法事实")
Dim fdr As DataRow = DataTables("法律条文").find("法条编码 = \'" & dr("法条编码") & "\'")
str &= "因" & dr("违法事实") & ","
If fdr IsNot Nothing Then
str &= fdr("条内容")
End If
str &= vbcrlf
Next
wrt.ReplaceOne("[内容]", str.trim(chr(13),chr(10),";"))
wrt.BuildOne(t.Rows(i))
Next
wrt.Show() \'显示报表
方法二：法律条文做违法事实的父表，然后子表引用父表的信息 http://www.foxtable.com/webhelp/scr/0106.htm