cleargrid("本期选择") And CopyRows("本期选择","年度"," = ",[%A%],"月别"," = ",[%B%],0) And DelRow("本期选择",1) and MsgBox("操作完毕!",1,4)And CopyRows("历史同期","年度"," = ",Number([%A%])-1,"月别"," = ",[%B%],0) And CopyRows("本年至本期","年度"," = ",[%A%],"月别"," = ",[%B%],0) And CopyRows("本年至本期","年度"," = ",[%A%],"月别"," = ",Number([%B%]) - 1,0)And CopyRows("去年至本期","年度"," = ",Number([%A%])-1,"月别"," = ",[%B%],0) And CopyRows("去年至本期","年度"," = ",Number([%A%])-1,"月别"," = ",Number([%B%]) - 1,0)And DelRow("本期选择",1)And DelRow("本期选择",1)
|