Foxtable(狐表)用户栏目专家坐堂 → 数据库用的是SQL server ,查询日期格式是对的吗?怎么输入当天日期查不出来,要输一年的时间才能查出来


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

主题:数据库用的是SQL server ,查询日期格式是对的吗?怎么输入当天日期查不出来,要输一年的时间才能查出来

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


加好友 发短信
等级:幼狐 帖子:51 积分:494 威望:0 精华:0 注册:2020/2/21 10:32:00
数据库用的是SQL server ,查询日期格式是对的吗?怎么输入当天日期查不出来,要输一年的时间才能查出来  发帖心情 Post By:2020/7/4 8:53:00 [只看该作者]

Dim d1 As Date = e.Form.Controls("U").Value
Dim d2 As Date = e.Form.Controls("V").Value
If d1 = Nothing Or d2 = Nothing Then
    MessageBox.Show("日期都不能为空","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Else
    With DataTables("生产记录")
        .LoadFilter = "日期>='" & d1 & "' and 日期<='" & d2 & "'"

        .Load()
    End With
 '   Dim g As New CrossTableBuilder("统计表2", DataTables("生产记录"))
 '   g.HGroups.AddDef("配方名称")
 '   g.VGroups.AddDef("原料名称")
 '   g.Totals.AddDef("实际值")
    Dim b As New GroupTableBuilder("统计表2",DataTables("生产记录"))
    b.Groups.AddDef("配方名称")
    b.Groups.AddDef("原料名称") 
    b.Totals.AddDef("设定值")
    b.Totals.AddDef("实际值")
    b.Totals.AddDef("误差值")

    b.Build '生成统计表
    MainTable = Tables("统计表2")  
    Tables("窗口1_Table1").DataSource =b.BuildDataSource()
 End If


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106035 积分:539268 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/7/4 10:12:00 [只看该作者]

日期数据有时分秒的吧

.LoadFilter = "日期>='" & d1 & "' and 日期 < '" & d2.adddays(1) & "'"

 回到顶部