Foxtable(狐表) → 用户栏目 → 专家坐堂 → 显示【会员电话】【店名】【a有效积分】【a有效兑换】在临时表什么显示


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

主题：显示【会员电话】【店名】【a有效积分】【a有效兑换】在临时表什么显示
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		显示【会员电话】【店名】【a有效积分】【a有效兑换】在临时表什么显示  发帖心情 Post By：2023/11/28 19:43:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新建 文本文档.txt

显示【会员电话】【店名】【a有效积分】【a有效兑换】在临时表什么显示
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/28 20:58:00 [显示全部帖子]

 Dim bd1 As New SQLGroupTableBuilder("积分汇总", "销售合计") '这里使用后台统计,如果数据已经全部加载可以直接用GroupTableBuilder
        bd1.C '外部数据表的话要指定数据源名称
        bd1.Groups.AddDef("会员电话", "会员电话")
        bd1.Groups.AddDef("店名", "店名")
        bd1.Groups.AddDef("商品素金非素", "商品素金非素")
        
        bd1.Totals.AddDef("实收金额", "实收金额")
         bd1.Totals.AddDef("积分比例", "积分比例")

   Dim pr1 As DataRow = DataTables("积分比例数据表").SQL1Find("开始日期 <= '" & dr("日期") & "'And 结束日期 >= '" & dr("日期") & "'  And ','+[店名]+',' like '%," & dr("店名") & ",%' And 商品素金非素='" & dr("商品素金非素") & "'")
 pr1("积分比例")

        bd1.Build()

我想要这样
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/28 21:12:00 [显示全部帖子]

   Dim cmd2 As New SQLCommand
                cmd2.C
                Dim dt2 As DataTable
                Dim sql有效积分 As String = " sel1ect 会员电话,店名,日期,商品素金非素,Sum([实收金额]) As 实收金额 From 销售合计 where [店名] ='周六福(1)'  And [会员电话] Is Not Null  And  Year(日期) = " & Format(Date.Today, "yyyy") & "  group by 会员电话,店名,日期,商品素金非素 "'
                cmd2.CommandText = sql有效积分
                Dim dt有效积分 As DataTable = cmd2.ExecuteReader 
            
            Dim b As New GroupTableBuilder("统计表1", dt有效积分)
            b.Groups.AddDef("会员电话") '根据产品分组
            b.Groups.AddDef("店名") '根据产品分组
            
            b.Totals.AddDef("a有效积分") '对数量进行统计
            
          b.Build()


 Dim pr1 As DataRow = DataTables("积分比例数据表").SQLFind("开始日期 <= '" & dr("日期") & "'And 结束日期 >= '" & dr("日期") & "'  And ','+[店名]+',' like '%," & dr("店名") & ",%' And 商品素金非素='" & dr("商品素金非素") & "'")

跟上面条件得到对应的 pr1("积分比例")   然后 dr("a有效积分") = dr("实收金额") / pr1("积分比例")
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/28 21:31:00 [显示全部帖子]

 Dim cmd2 As New SQLCommand
                cmd2.C
                Dim dt2 As DataTable
                Dim sql有效积分 As String = " sel1ect 会员电话,店名,日期,商品素金非素,Sum([实收金额]) As 实收金额 From 销售合计 where [店名] ='周六福(1)'  And [会员电话] Is Not Null  And  Year(日期) = " & Format(Date.Today, "yyyy") & "  group by 会员电话,店名,日期,商品素金非素 "'
                cmd2.CommandText = sql有效积分
                Dim dt有效积分 As DataTable = cmd2.ExecuteReader 
            
            Dim b As New GroupTableBuilder("统计表1", dt有效积分)
            b.Groups.AddDef("会员电话") '根据产品分组
            b.Groups.AddDef("店名") '根据产品分组
            
            b.Totals.AddDef("a有效积分") '  是下面红色和上面粉色条件得到的表达式例a有效积分= dr("实收金额") / pr1("积分比例")然后显示在统计表1表里
            
          b.Build()


 Dim pr1 As DataRow = DataTables("积分比例数据表").SQLFind("开始日期 <= '" & dr("日期") & "'And 结束日期 >= '" & dr("日期") & "'  And ','+[店名]+',' like '%," & dr("店名") & ",%' And 商品素金非素='" & dr("商品素金非素") & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/28 22:00:00 [显示全部帖子]

不行，显示404

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


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/28 22:15:00 [显示全部帖子]

销售合计表和积分比例数据表不是一个数据源

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


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/28 22:26:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下：qq浏览器截图20231128222421.png
图片点击可在新窗口打开查看


改成一个也不行
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/29 1:34:00 [显示全部帖子]

  


  DataTables("统计表1").DataCols.Add("店名", GetType(String), 16)
        For Each dr As DataRow In DataTables("统计表1").datarows
             Dim pr2 As DataRow = DataTables("会员资料201609").SQLFind("会员电话='" & dr("会员电话") & "'")
            dr("店名") = pr2("店名")
        Next
        
        
SQLFind   读取10000多行慢的很，有没有快点的
[此贴子已经被作者于2023/11/29 2:01:45编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/29 10:46:00 [显示全部帖子]

    Dim g1 As New GroupTableBuilder("积分查询临时表", DataTables("有效积分临时表"))
        Dim dt积分查询临时表 As fxDataSource
        g1.Groups.AddDef("会员电话")
        g1.Totals.AddDef("实收金额")
        g1.Totals.AddDef("有效积分")
        g1.Decimals = 0
        b.Filter = "[有效积分] >= 20" '仅统计客户为CS01的记录    这里什么没反应
        ' g1.Build()
        dt积分查询临时表 = g1.BuildDataSource()
        
       
        
        
        
        Dim nms As St1ring() = {"会员电话", "会员电话"} '指定连接列
        dt积分查询临时表.Combine(nms, dt会员资料临时查询, nms) '将销售统计数据组合到进货统计数据
        dt积分查询临时表.Show("积分查询临时表") '显示统计结果
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1523 积分：10315 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/29 10:59:00 [显示全部帖子]

我只筛选显示积分查询临时表大于20的值，什么加条件

 回到顶部
总数 13 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.06250 秒, 6 次数据查询