Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于统计数据问题


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

主题：关于统计数据问题
帅哥哟，离线，有人找我吗？
y2287958
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/22 15:56:00 [显示全部帖子]

Dim 开始月 As Integer = val(regex.Match("4月15日", "(\d+)月(\d+)日").Groups(1).Value)
Dim 开始日 As Integer = val(regex.Match("4月15日", "(\d+)月(\d+)日").Groups(2).Value)
Dim 开始日期 As Date = New Date(Date.Today.Year - 1, 开始月, 开始日)
If Date.Today > New Date(Date.Today.Year, 开始月, 开始日) Then
    开始日期 = New Date(Date.Today.Year, 开始月, 开始日)
End If 
Dim 结束日期 As Date = 开始日期.AddYears(1).AddDays( - 1)
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/23 6:04:00 [显示全部帖子]

For Each dr As DataRow In DataTables("信用卡基本资料").DataRows
    If dr.isNull("统计开始日期") Then
        dr("开始日期") = Nothing 
        dr("结束日期") = Nothing
    Else 
        Dim ksy As Integer = val(regex.Match(dr("统计开始日期"), "(\d+)月(\d+)日").Groups(1).Value)
        Dim ksr As Integer = val(regex.Match(dr("统计开始日期"), "(\d+)月(\d+)日").Groups(2).Value)
        Dim ksrq As Date = New Date(Date.Today.Year - 1, ksy, ksr)
        If Date.Today > New Date(Date.Today.Year, ksy, ksr) Then
            ksrq = New Date(Date.Today.Year, ksy, ksr)
        End If
        Dim jsrq As Date = ksrq.AddYears(1).AddDays( - 1)
        dr("开始日期") = ksrq 
        dr("结束日期") = jsrq
    End If
Next
[此贴子已经被作者于2025/1/23 8:16:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/23 8:58:00 [显示全部帖子]

"(\d+)[^\d](\d+)[^\d]?"

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/23 12:06:00 [显示全部帖子]

以下是引用裴保民在2025/1/23 9:20:00的发言：
再麻烦以下
水流表中的数据怎么根据信用卡资料中各卡的开始日期和终止日期一次性筛选出来呀？

想做个啥？
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/23 15:09:00 [显示全部帖子]

Dim 行 As DataRow = DataTables("信用卡基本资料").DataRows(0)
Dim 查询表生成器 As New SQLJoinTableBuilder("查询表", "交易流水")
查询表生成器.C
查询表生成器.AddCols("*")
查询表生成器.Filter = "支付卡号='" & 行("卡号") & "' and 支付卡名='" & 行("卡名") & 
"' and 支付日期>=#" & 行("开始日期") & "# and 支付日期<=#" & 行("结束日期") & "#"
For i As Integer = 1 To DataTables("信用卡基本资料").DataRows.Count - 1
    行 = DataTables("信用卡基本资料").DataRows(i)
    Dim 查询表生成器1 As New SQLJoinTableBuilder("查询表", "交易流水")
    查询表生成器1.C
    查询表生成器1.AddCols("*")
    查询表生成器1.Filter = "支付卡号='" & 行("卡号") & "' and 支付卡名='" & 行("卡名") & 
    "' and 支付日期>=#" & 行("开始日期") & "# and 支付日期<=#" & 行("结束日期") & "#"
    查询表生成器.Union(查询表生成器1)
Next
查询表生成器.Build()
MainTable = Tables("查询表")
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/23 15:26:00 [显示全部帖子]

查询表生成器.Connection   Name = "信用卡免年费达标统"
敏感字符，请去除空格后使用


[此贴子已经被作者于2025/1/23 15:26:25编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/23 15:54:00 [显示全部帖子]

ConnectionName

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/23 15:59:00 [显示全部帖子]

是的，自己试试就明白了。多看看帮助

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/23 16:13:00 [显示全部帖子]

汇总模式

 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4866 积分：35290 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2025/1/24 8:18:00 [显示全部帖子]

以下是引用裴保民在2025/1/24 3:24:00的发言：
怎么变成汇总模式呢？

帮助搜索“汇总模式”，遇到问题先多看帮助。2017年注册的九尾狐
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05664 秒, 5 次数据查询