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月份的值可以取出来,但是保存不了