主题：[求助]关于自动更新和统计数据

For Each r As Row In Tables("检查登记表").Rows

    If r.IsNull("档案编号") = False Then

        Continue For

    End If

    For Each rw As Row In Tables("录入评估名单").Rows

        If r("妻子证件号码") = rw("妻子证件号码") AndAlso r("检查日期") <= rw("建档日期") Then

            r("档案编号") = rw("档案编号")

            r("建档日期") = rw("建档日期")

        End If

和以下代码如何才能组合到一起呢？？

    现在希望：

    1.最好将三个导入按钮合为一个，不能的话，将后两个导入按钮合为一个也好。

    2.原来那样统计如果再填好的话，数据量大不行，想想还是用临时统计表好些。不知能不能将档案整理统计表、孕检人数统计表、录入人数统计表、评估人数统计表用一个统计表一次性统计出来生成一个表，样式如项目内的统计表A那样。

    3. 不知能不能将评估总人数统计表、早孕随访人数统计表、已孕人数统计表、妊娠结局随访人数统计表一个统计表一次性统计出来生成一个表，样式如项目内的统计表B那样（最好统计数据有什么年月，自动归类统计成统计表B那样的）。 

楼主，这些问题太繁杂，别人不可能帮你全部完成的，别人最多可以给你指点，要多做功的还是你自己。

楼主自食其力吧，多帮助。