Foxtable(狐表)用户栏目专家坐堂 → [求助].Find("year(日期) = 2016 and month(日期) = 12") 应怎么写?


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

主题:[求助].Find("year(日期) = 2016 and month(日期) = 12") 应怎么写?

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/8 17:26:00 [显示全部帖子]


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/8 17:32:00 [显示全部帖子]

你就不能看一看帮助文档?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/8 17:35:00 [显示全部帖子]

 

[此贴子已经被作者于2016/4/8 17:35:09编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/4/8 17:36:00 [显示全部帖子]

For Each dr As Row In Tables("销售订单").Rows
    Dim d As Date = dr("日期")
    d = new Date(d.year, d.month, 1)
    Dim drx As DataRow = DataTables("销售明细").Find("日期 >= #" & d & "  and 日期 < #" & d.AddMonths(1) & "# And  编号 = '" & dr("编号") & "'")
    If drx Is Nothing Then
        dr("错误") = "X"
    End If
Next

 回到顶部