Foxtable(狐表)用户栏目专家坐堂 → [求助]关于跨表后台数据统计,按动态日期计算需求的求助


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

主题:[求助]关于跨表后台数据统计,按动态日期计算需求的求助

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


加好友 发短信
等级:超级版主 帖子:113802 积分:579589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/5/12 14:38:00 [显示全部帖子]

请上传实例测试

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


加好友 发短信
等级:超级版主 帖子:113802 积分:579589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/5/12 15:41:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:管理项目1.zip



' 1. 今日以前
columnNames.Add("今日以前")
' 修正字符串拼接,使用 & 替代 $"" 插值
dateConditions.Add("DDEDT  < '" & currentDate & "'")

' 2. 生成10个3天区间(从今日开始)
Dim startDate As Date = currentDate
For i As Integer = 0 To 9
    Dim endDate As Date = startDate.AddDays(3)
    columnNames.Add(endDate.ToString("M月d日"))
    ' 修正字符串拼接
    dateConditions.Add("DDEDT  BETWEEN '" & startDate & "' AND '" & endDate.AddDays( - 1) & "'")
    startDate = endDate
Next

' 3. 最后一个区间(最后一个3天区间的次日及以后)
Dim lastDate As Date = startDate
columnNames.Add(lastDate.ToString("M月d日") & "以后")
' 修正字符串拼接
dateConditions.Add("DDEDT >= '" & lastDate & "'")

'-------------------------------------------
' 步骤2:构建SQL统计
'-------------------------------------------
Dim bd As New SQLGroupTableBuilder("动态统计", "v_corder_no_debt_amt")
bd.C ' 指定数据库连接名
bd.Groups.AddDef("ccode")

For i As Integer = 0 To columnNames.Count - 1
    Dim sqlExp As String = "CASE WHEN " & dateConditions(i) & " THEN (dqty - dsaleqty) ELSE 0 END"
    bd.Totals.AddExp(columnNames(i), sqlExp)
Next
……

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


加好友 发短信
等级:超级版主 帖子:113802 积分:579589 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2025/5/12 16:14:00 [显示全部帖子]

升级。不然看5楼代码改

 回到顶部