主题：关联表

人员表+家庭信息直接建立关联表，单向的，

 

目前问题：每次打开窗口都会弹出人员的家庭关联表

1、选择单向，而不是无，是因为报表里面人员+本人的家庭信息，涉及到引用关联表

 

 

提问：

 

如何既能不弹出来这个关联表，又能在报表里面实现引用本人家庭信息这个功能？

1、你没有关联表，excel报表都是可以引用关联表的。你可以选择【无】的。

 

2、你可以设置关联表不自动打开的，如 http://www.foxtable.com/webhelp/scr/0094.htm

 

'下面很简单,指定每一个单元格的内容
rt1.Cells(0,0).Text= "家庭人员信息表"
rt1.Cells(0,0).Style.FontBold = True '字体加粗
rt1.Cells(0,0).Style.FontSize = 16 '大体大小为16磅
rt1.Cells(0,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(0,0).Style.Spacing.Bottom = 3 '和下面的对象(表格)距离3毫米

rt1.Cells(1,0).Text= "关系"
rt1.Cells(1,0).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,1).Text= "姓名"
rt1.Cells(1,1).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,2).Text= "年龄"
rt1.Cells(1,2).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,3).Text= "政治面貌"
rt1.Cells(1,3).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,4).Text= "联系方式"
rt1.Cells(1,4).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
rt1.Cells(1,5).Text= "工作单位"
rt1.Cells(1,5).Style.TextAlignHorz = prt.AlignHorzEnum.Center '水平居中排列
 

With Tables("person.family")
    For r As Integer = 0 To .Rows.Count - 1 '遍历关联表每一行
        rt1.Cells(r+2,0).Text = .rows(r)("guanXi")
        rt1.Cells(r+2,1).Text = .rows(r)("name")
        rt1.Cells(r+2,2).Text = .rows(r)("age")
        rt1.Cells(r+2,3).Text = .rows(r)("political")
        rt1.Cells(r+2,4).Text = .rows(r)("tel")
        rt1.Cells(r+2,5).Text = .rows(r)("job")
    Next
End With
ra1.Children.Add(rt1)

doc.Body.Children.Add(ra1)
Doc.Preview() '预览报表

 

如果选务，那个红色部分就不能那么写了，该如何写？

最简单的方法，你可以设置关联表不自动打开的，如 http://www.foxtable.com/webhelp/scr/0094.htm
 
如果你选择【无】，那你需要查询对应的值，如 Dim drs = DataTables("family").select("某列 = '" & Tables("person").current("某列") & "'")

不自动打开，但是每次人员窗口打开，下面还会有它的标题头显示在那里，那样也不行啊？

什么标题头？关联表？可以关闭啊

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

就是窗口的最底下会有那个标题？去不得，如何去的 不留一点痕迹，就想它不存在一样

自动打开的勾去掉，然后关闭关联表，然后点击左上角的保存按钮，保存一下项目