主题：[求助]如何将下边的代码生成的数据保存,下次打开表的时候还在呢?

Select Case e.DataCol.Name

    Case "审签序号"

        Dim total As Long

        Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 1 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("转任") = Iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 2 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("调任") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 3 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("交流") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 4 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("军转") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 5 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("考录") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "进入渠道 = 6 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("过渡") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 1 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("调出") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 2 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("退休") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 3 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("辞职辞退") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 4 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("开除") = iif(Total = 0, Nothing, Total)

        Total = DataTables("人员增减").Compute("Count(_Identify)", "退出渠道 = 5 And 审签序号 = '" & e.DataRow("审签序号") & "'")

        e.DataRow("死亡") = iif(Total = 0, Nothing, Total)

End Select