Foxtable(狐表)用户栏目专家坐堂 → [求助]如何让交叉查询中固定的日期能以日期输入框时间为准进行查询


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

主题:[求助]如何让交叉查询中固定的日期能以日期输入框时间为准进行查询

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


加好友 发短信
等级:幼狐 帖子:84 积分:679 威望:0 精华:0 注册:2020/12/25 0:49:00
[求助]如何让交叉查询中固定的日期能以日期输入框时间为准进行查询  发帖心情 Post By:2021/1/26 0:53:00 [只看该作者]

如何让交叉查询中固定的日期能以日期输入框时间为准进行查询

在窗口中加入两个日期输入框,一个开始,一个结束。
如何让g.Filter = "[业务日期] >= #1/1/2021# And [业务日期]<= #12/31/2021#"
这段代码以日期框入框的时间为准进行查询?求指教!!!

Dim g As New GroupTableBuilder("年统计", DataTables("登记表"))
g.Filter = "[业务日期] >= #1/1/2021# And [业务日期]<= #12/31/2021#"
g.Groups.AddDef("业务员")
g.Totals.AddDef("流入金额")
g.Totals.AddDef("流出金额")
g.VerticalTotal = True
g.SubTotal = True
g.Decimals = 2
g.FromServer = True
g.Build()


Tables("业务管理_统计报表").DataSource = g.BuildDataSource()
e.Form.Controls("统计报表").Visible = True

 回到顶部
帅哥哟,离线,有人找我吗?
xuxd76
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:84 积分:679 威望:0 精华:0 注册:2020/12/25 0:49:00
  发帖心情 Post By:2021/1/26 1:01:00 [只看该作者]

Dim d1 As Date = e.Form.Controls("统计_StartDate").Value
Dim d2 As Date = e.Form.Controls("统计_EndDate").Value

Dim g As New GroupTableBuilder("年统计", DataTables("登记表"))
g.Filter = "业务日期>=#" & d1 & "# and 业务日期<=#" & d2 & "#"
g.Groups.AddDef("业务员")
g.Totals.AddDef("流入金额")
g.Totals.AddDef("流出金额")
g.VerticalTotal = True
g.SubTotal = True
g.Decimals = 2
g.FromServer = True
g.Build()


Tables("业务管理_统计报表").DataSource = g.BuildDataSource()
e.Form.Controls("统计报表").Visible = True


If d1 = Nothing Or d2 = Nothing Then
    MessageBox.Show("起始或结束日期都不能为空!","友情提醒",MessageBoxButtons.OK,MessageBoxIcon.Warning)
End If

后来摸索了下,用上述代码可以实现,同时窗口提醒没有日期时不能进行统计

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110648 积分:563148 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/1/26 8:28:00 [只看该作者]

Dim d1 As Date = e.Form.Controls("统计_StartDate").Value
Dim d2 As Date = e.Form.Controls("统计_EndDate").Value
if d1 = nothing orelse d2= nothing then
msgbox("请填写统计日期")
return
end if
Dim g As New GroupTableBuilder("年统计", DataTables("登记表"))

 回到顶部