- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助].Find("year(日期) = 2016 and month(日期) = 12") 应怎么写？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83435)
-- 发布时间：2016/4/8 17:25:00
-- [求助].Find("year(日期) = 2016 and month(日期) = 12") 应怎么写？
Dim dr As DataRow = DataTables("销售明细").Find("year(日期) = 2016 and month(日期) = 12")
多谢！
-- 发布时间：2016/4/8 17:26:00
--
看看
http://www.foxtable.com/help/topics/2720.htm
-- 发布时间：2016/4/8 17:32:00
--
多谢大红袍老师！其实我是想实现如下：
For Each dr As Row In Tables("销售订单").Rows
Dim drx As DataRow = DataTables("销售明细").Find("(year(日期) <> " & dr("日期").year & " Or month(日期) <> & dr("日期").month & ") And 编号 = \'" & dr("编号") & "\'")
If drx IsNot Nothing Then
dr("错误") = "X"
End If
Next
-- 发布时间：2016/4/8 17:32:00
--
你就不能看一看帮助文档？
-- 发布时间：2016/4/8 17:35:00
--
[此贴子已经被作者于2016/4/8 17:35:09编辑过]
-- 发布时间：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
-- 发布时间：2016/4/8 17:40:00
--
可以这样变通，多谢多谢！
-- 发布时间：2016/4/8 17:41:00
--
