现有二张表案卷库和文件库，二者通过案卷库中的档号与文件库中的案卷号相关联。一个案卷有多个文件，是一对多的关系。现求教：

案卷库中某一条记录的卷内份数就是相关联的文件库中的记录数；

案卷库中某一条记录的总页数就是相关联的文件库中的页数之和；

案卷库中某一条记录的起止时间就是相关联的文件库中的最早成文日期至成迟成文日期，格式如20170105－20171229.

如下图：1－001

 
此主题相关图片如下：父表数据自动统计求教192.png

1－002

此主题相关图片如下：父表数据自动统计求教200.png

 

请问案卷库中起止日期、卷内份数和总页数这三个值如何使用代码，让软件在录入下一条记录时，自动从文件库的页数、相关记录数和成文日期中进行计算，写入到案卷库中。

1、2、可以直接用表达式计算

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

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

3、需要编写代码生成，子表的datacolchanged事件

If e.DataCol.Name = "成文日期" Then

    Dim drs = e.DataTable.Select("成文日期 is not null and 案卷号 = \'" & e.DataRow("案卷号") & "\'", "成文日期")

    Dim str As String = ""

    If drs.count > 0 Then str &= drs(0)("成文日期")

    If drs.count > 1 Then str &= "-" & drs(drs.count-1)("成文日期")

    Dim pdr = e.datarow。getParentRow("案卷库")

    If pdr IsNot Nothing Then pdr("起止日期") = str

End If

datacolchanged事件写代码了吗？加入msgbox，触发事件了吗？

具体例子发上来测试。