| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 条件表达式中如何获取日期输入框中的日期？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=106235) |
| -- 作者：1669607010 -- 发布时间：2017/9/5 9:42:00 -- 条件表达式中如何获取日期输入框中的日期？ 条件表达式中如何获取日期输入框中的日期？ |
| -- 作者：有点甜 -- 发布时间：2017/9/5 9:53:00 -- 无法获取。
请具体说明你要做什么。尽量上传实例说明。 |
| -- 作者：1669607010 -- 发布时间：2017/9/5 10:06:00 -- 老师好，我的代码如下： DataTables("染化料助剂库存盘点").DataRows.Clear() Dim st As Date = Date.Now Dim nms As List(of String) = DataTables("染料助剂录入").GetUniqueValues("","入账分类") DataTables("染化料助剂库存盘点").StopRedraw() For Each nm As String In nms Dim dr As DataRow = DataTables("染化料助剂库存盘点").AddNew() dr("入账分类") = nm dr("已结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "入账分类= \'" & nm & "\' And 结算情况 = 1") dr("未结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "入账分类= \'" & nm & "\' And 结算情况 = 0") dr("采购总数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)","入账分类= \'" & nm & "\' ") dr("本月结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "入账分类= \'" & nm & "\' And 结算日期 >= #7/23/2017# And 结算日期 <= #8/22/2017#") dr("本月领料数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "入账分类= \'" & nm & "\' And 操作日期 >= #7/23/2017# And 操作日期 <= #8/22/2017#") Next DataTables("染化料助剂库存盘点").ResumeRedraw() 现在我想把代码中红色的日期改为由开始时间、结束时间2个日期输入框实现，该怎么实现？
|
| -- 作者：有点甜 -- 发布时间：2017/9/5 10:09:00 -- Dim d1 As Date = Forms("窗口1").Controls("DateTimePicker1").Value Dim d2 As Date = Forms("窗口1").Controls("DateTimePicker2").Value
dr("本月结算数量") = DataTables("染料助剂录入").Compute("Sum(采购数量)", "入账分类= \'" & nm & "\' And 结算日期 >= #" & d1 & "# And 结算日期 <= #" & d2 & "#") |
| -- 作者：1669607010 -- 发布时间：2017/9/5 10:18:00 -- 谢谢老师 |