Dim Filter As String
Dim Filter3 As String
Dim Filter4 As String
Select Case e.DataCol.Name

     Case  "设备编号"
        
        Filter= "设备编号 = " & e.DataRow("设备编号") & " And 报修日期 >= #2013-01-01# And 报修日期 <= #2013-01-31#" 
        Filter2= "设备编号 = " & e.DataRow("设备编号") & " And 报修日期 >= #2013-02-01# And 报修日期 <= #2013-02-28#" 
        Filter3= "设备编号 = " & e.DataRow("设备编号") & " And 报修日期 >= #2013-03-01# And 报修日期 <= #2013-03-31#" 

    
       e.DataRow("累积维修时间") = DataTables("设备维修").Compute("Sum(维修用时)", Filter)
       e.DataRow("维修次数") = DataTables("设备维修").Compute("count(设备编号)", Filter)   

       e.DataRow("累积维修时间2月份") = DataTables("设备维修").Compute("Sum(维修用时)", Filter2)
       e.DataRow("维修次数2月份") = DataTables("设备维修").Compute("count(设备编号)", Filter2)
       

      e.DataRow("累积维修时间3月份") = DataTables("设备维修").Compute("Sum(维修用时)", Filter3)
      e.DataRow("维修次数3月份") = DataTables("设备维修").Compute("count(设备编号)", Filter3)
      

        
End Select



我现在输入条产品编号，1，2，3月份的值都可以自动带出来
但是我关闭窗口，下次再打开时，只有2，3月份自动带出来的值还在表里，1月份的就都为空格了，不知我到底是哪里写错了

相当于，1月份的值可以取出来，但是保存不了