以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  用起始日期时间和结束日期时间怎么用呢  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151168)
--  作者：wujie
--  发布时间：2020/6/17 8:38:00
--  用起始日期时间和结束日期时间怎么用呢
U为起始日期，D为起始时间
V为结束日期，B为结束时间



Dim d1 As Date = e.Form.Controls("U").Value
Dim d3 As Date = e.Form.Controls("D").Value
Dim d2 As Date = e.Form.Controls("V").Value
Dim d4 As Date = e.Form.Controls("B").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
--  作者：有点蓝
--  发布时间：2020/6/17 9:07:00
--  
日期时间在一个控件里输入不就行了，干嘛要分开日期和时间2个控件？
--  作者：wujie
--  发布时间：2020/6/17 9:10:00
--  没有找到这个控件啊
没有这个控件啊
--  作者：有点蓝
--  发布时间：2020/6/17 9:32:00
--  
U为起始日期，D为起始时间
V为结束日期，B为结束时间

截图或者上传实例，详细说明要干嘛