clearsubtotal() And FilterFor("日期","=",[%日期%],2) And Subtotal("石类,石型号","粒数,石重","2,2",1,4,"%s|%s","Total:") And Report(GridName,"TOTAL",1,Rows,0,4)