| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 表达式合成 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=108850) |
| -- 作者：waiter -- 发布时间：2017/10/30 21:25:00 -- 表达式合成 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 粗体部份合成条件表达式不会写，恳请指教。
|
| -- 作者：有点蓝 -- 发布时间：2017/10/30 22:07:00 -- For i As Integer = 0 To lst.Count - 1 \'指定每个数据点的位置 Series.X(i) = i \'指定水平坐标 Series.Y(i) = tbl.Compute("Sum(毛利)","[销售员] = \'" & lst(i) & "\' And " & filter ) \'指定垂直坐标 Next |
| -- 作者：waiter -- 发布时间：2017/10/30 22:50:00 -- 解决了，也有点明白了，很是感谢。 |