Dim filter="销售日期<=#"& vars("enddate") &"# And 销售日期>=#"& vars("startdate") &"#"
For i As Integer = 0 To lst.Count - 1 '指定每个数据点的位置
Series.X(i) = i '指定水平坐标
Dim dr As DataRow=DataTables("销售").Find(filter And "[销售员] = '"& lst(i) &"'" )
If dr IsNot Nothing Then
Series.Y(i) = tbl.Compute("Sum(毛利)","[销售员] = '"& lst(i) &"' And filter ") '指定垂直坐标
Else
Series.Y(i) = 0
END If
Next
粗体部份合成条件表达式不会写,恳请指教。