老师好,我的代码如下:
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个日期输入框实现,该怎么实现?