以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  FILTER里日期的写法  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=107752)

--  作者:dengk03
--  发布时间:2017/10/9 12:48:00
--  FILTER里日期的写法
For i As Integer = 0 To m-1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
     s = DataTables("1").sqlcompute("面积","完成人= \'"& text &"\' And 时间 >= \'i/1/2017\' And 时间 <= \'i/31/2017\'")
    Series.Y(i) = s \'垂直坐标用随机数生成
Next

时间 >= \'i/1/2017\' 这一段的正确写法是什么?

--  作者:有点甜
--  发布时间:2017/10/9 14:16:00
--  
For i As Integer = 0 To m-1 \'指定每个数据点的位置
    Series.X(i) = i \'指定水平坐标
    Dim d As Date = new Date(2017, i+1, 1)
    msgbox(d)
     s = DataTables("1").sqlcompute("面积","完成人= \'"& text &"\' And 时间 >= \'" & d & "\' And 时间 < \'" & d.AddMonths(1) & "\'")
    Series.Y(i) = s \'垂直坐标用随机数生成
Next