老师我用的SQL数据库,狐表里面统计表名称为“溯源码”,其中字段【入库日期】为Date日期型,格式:2018-12-11;以下代码正确吗?
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("所属部门") & "'"
Next
Else If dr("职位") = "职员" Then
Filter = "出库部门 = '" & dr("所属部门") & "'"
End If
Dim g As New SQLGroupTableBuilder("库龄分析", "dbo.溯源码") ‘老师这个表的名称应该写狐表里面的名称,还SQL库中的名称,需要带dbo吗?
g.Groups.AddDef("商品名称")
g.Groups.AddDef("商品条码")
g.Totals.AddDef("入库日期",AggregateEnum.Min,"最大库龄")
g.Totals.AddDef("入库日期",AggregateEnum.Average,"平均库龄")
g.Totals.AddExp("1-30天","iif(入库日期 >= Date.Today.AddDays(-30),1,0)")
g.Totals.AddExp("30-60","iif(入库日期 >= Date.Today.AddDays(-60) And 入库日期 < Date.Today.AddDays(-30),,1,0)") ’这段代码能否这么写
g.Filter = filter
g.Build()
MainTable = Tables("库龄分析")