改成
Series.Y(i) = val(tbl.Compute("Sum(中标金额)","[所属机构] = '" & lst(i) & "' and 中标日期 >= '" & StartDate & " ' And 中标日期 <= '" & EndDate & "'"))