With dataTables("fa piao管理") currenttable(0,"材料")= .Compute("Sum(cl)","y = 1")
currenttable(0,"收入")= .Compute("Sum(cl)","y = 1") ...End With