谢谢老师!

关联表（表B.表A）里实现了，如何在表A里也实现呢？

表A也可以实现的啊，现在有什么问题？

必须通过【编号】、【类型】列匹配的。

http://www.foxtable.com/webhelp/scr/1451.htm

再请教一个其他问题。

Dim cmd As New SQLCommand
cmd.C
Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)
cmd.CommandText = "Select * F rom {员工评分} Where 日期 >= \'" & d & "\' And 日期  < \'" & d.AddMonths(1) & "\'"
If Forms("员工评分").Opened Then
    Dim h As New CrossTableBuilder("统计", cmd.ExecuteReader())
    h.HGroups.AddDef("姓名")
    h.VGroups.AddDef("月", "{0}")
    h.Totals.AddDef("评分", "评分")
    h.OrderByTotal = True
    h.HorizontalTotal = True
    h.Filter = "日期 Is Not Null"
    h.Build()
End If

Tables("员工评分_统计表").DataSource = DataTables("统计")

\'设置月份的列宽
For Each c As Col In Tables("员工评分_统计表").Cols
    If c.DataCol.IsNumeric Then
        c.Width = 50
    End If
Next

Tables("员工评分_统计表").AutoSizeCols() \'设置自动列宽

我怎么都弄不好。这段代码只能统计总计评分。

1、怎么添加：有总计评分，还增加一个平均评分？

2、姓名列  ，是多选，这一列多选的名字用（，）隔开的。如何根据姓名分开统计。

参考

http://www.foxtable.com/webhelp/scr/2400.htm

具体问题上传具体实例测试

Select Case e.DataCol.Name
    Case "编号","类型"
        Dim dr As DataRow = e.DataRow
        Dim pr As DataRow
        If dr.IsNull("编号") OrElse dr.IsNull("类型") Then
            dr("计分金额") = Nothing
        Else
            Dim filter As String
            filter = "编号 = \'" & dr("编号") & "\'"
            pr = DataTables("客户资料").Find(filter)
            If pr IsNot Nothing Then
                dr("计分金额") = pr(e.DataRow("类型"))
            End If
        End If
End Select

子表：有类型列，选择价格1.或价格2，金额列自动填充父表对应的数值。（父表安全加载）以上代码实现了。

如果我想父表是sql表。初始不加载。怎么实现，子表：类型列选择，计分金额列自动填充父表对应的数值呢？（直接数据库，后台读取数据填充）