Foxtable(狐表)用户栏目专家坐堂 → [求助]请教GetValues中Filter方法关于日期的表达式


  共有3359人关注过本帖树形打印复制链接

主题:[求助]请教GetValues中Filter方法关于日期的表达式

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/24 13:55:00 [显示全部帖子]

DataTables("帮扶统计表2").DataCols.Add("年度内参与帮扶乡镇数",Gettype(Integer))
For Each dr As DataRow In DataTables("帮扶统计表2").DataRows
    If dr("年度") <> "合计"
        Dim d As Date = new Date(val(dr("年度")),1,1)   '不知道这一行写的对不对
        dr("年度内参与帮扶乡镇数") = DataTables("困难人员帮扶记录表").GetValues("所在乡镇","帮扶日期>=#" & d & "# and 帮扶日期 < #" & d.AddYears(1) & "#" And "所属县市 = '" & dr("所属县市") & "'"     '----红色的代码是新增的
    End If
Next

 回到顶部