老师我用的是SQL数据库，数据库的入库日期格式包含了 毫秒如：2018-10-23 16:31:41.000我想狐表统计界面设定了开始日期和结束日期的格式 是DATE：2018-10-23；
如果开始日期=2018-10-23；结束日期=2018-10-23；统计的就是2018-10-23一天的商品；其中SQL数据库中入库日期为2018-10-24 00:00:00.000是统计在2018-10-24里面的。
代码如下要怎么修改：
Dim lx As String = e.Form.Controls("ComboBox1").Value
Dim ks As Date = e.Form.Controls("DateTimePicker1").Value '日期输入框的格式是DATE型：2018-10-23
Dim js As Date = e.Form.Controls("DateTimePicker2").Value
Dim dr As DataRow = DataTables("用户信息").find("用户名 = '" & 用户名 & "'") '找到当前登录者所在的行
Dim filter As String = "1=2"
If dr("职位") = "管理者" Then
Dim drs = DataTables("部门信息").Select("层级 like '" & dr("层级") & "%'")
For Each cdr As DataRow In drs
Filter &= " or 当前所在部门 = '" & cdr("所属部门") & "'And 入库日期 >= '" & ks & "' And 入库日期 <= '" & js & "' and 是否可用 = 1"
Next
Else If dr("职位") = "职员" Then
Filter = "当前所在部门 = '" & dr("所属部门") & "'And 入库日期 >= '" & ks & "' And 入库日期 <= '" & js & "'and 是否可用 = 1"
End If
Dim g As New CrossTableBuilder("库存汇总", DataTables("溯源码"))
’统计代码
g.Filter = filter
g.Build()
MainTable = Tables("库存汇总")
加好友 
发短信
Post By：2018/11/2 8:43:00 [显示全部帖子]
