您应该理解错了。父表一页只能显示一行，然后子表只能显示父表选中的那一行对应的子表记录。
这种仅仅为了显示2个表的数据，其实和关联表、父子表这种其实没有什么关系了。需要通过代码输出，例如
Dim tm As String = ProjectPath & "Attachments\通讯录.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\通讯录.doc" '指定目标文件
Dim wrt As New WordReport(Tables("成本控制中心"),tm,fl) '定义一个WordReport
Dim sum As Integer
For i As Integer = 0 To Tables("成本控制中心").rows.count - 1
Dim r As Row = Tables("成本控制中心").rows(i)
wrt.ReplaceOne("[@成本控制中心,部门," & (i+1) & "]",r("部门"))
wrt.ReplaceOne("[@成本控制中心,姓名," & (i+1) & "]",r("姓名"))
Next
wrt.BuildOne(Tables("成本控制中心").rows(0))
wrt.Show() '显示报表
加好友 
发短信
Post By：2018/10/19 14:25:00 [显示全部帖子]
