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


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

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


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

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

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


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/28 20:22:00 [只看该作者]

Dim dt有效积分 As DataTable = cmd2.ExecuteReader
dt有效积分.DataCols.Add("a有效积分", GetType(Double))
            For Each dr As DataRow In dt有效积分.Select("", "会员电话")
                Dim pr1 As DataRow = DataTables("积分比例数据表").SQLFind("开始日期 <= '" & dr("日期") & "'And 结束日期 >= '" & dr("日期") & "'  And ','+[店名]+',' like '%," & dr("店名") & ",%' And 商品素金非素='" & dr("商品素金非素") & "'")
                ' msgbox(dr("店名") & dr("日期") & pr1("积分比例"))
if pr1 isnot nothing then
                dr("a有效积分") = dr("实收金额") / pr1("积分比例")
end if
            Next
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：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()

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


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/28 21:02:00 [只看该作者]

这个意思？
……
        bd1.Totals.AddDef("实收金额", "实收金额")
         bd1.Totals.AddDef("积分比例", "积分比例")
        bd1.Build()
For Each dr As DataRow In DataTables("积分汇总").datarows
   Dim pr1 As DataRow = DataTables("积分比例数据表").SQL1Find("开始日期 <= '" & dr("日期") & "'And 结束日期 >= '" & dr("日期") & "'  And ','+[店名]+',' like '%," & dr("店名") & ",%' And 商品素金非素='" & dr("商品素金非素") & "'")
 dr("积分比例") = pr1("积分比例")
next
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：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("积分比例")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/28 21:22:00 [只看该作者]

没看懂

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


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：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("商品素金非素") & "'")
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/28 21:51:00 [只看该作者]

试试

Dim sql有效积分 As String = " select a.*,a.实收金额 / b.积分比例 as a有效积分  from (select 会员电话,店名,日期,商品素金非素,Sum([实收金额]) As 实收金额 From 销售合计 where [店名] ='周六福(1)'  And [会员电话] Is Not Null  And  Year(日期) = " & Format(Date.Today, "yyyy") & "  group by 会员电话,店名,日期,商品素金非素 ) as a  inner join 积分比例数据表 as b on  a.商品素金非素=b.商品素金非素 and b.开始日期 <=a.日期   and b.结束日期 >= a.日期 and ','+b.[店名]+',' like '%,' + a.店名  ',%'"
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：七尾狐 帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00 		  发帖心情 Post By：2023/11/28 22:00:00 [只看该作者]

不行，显示404

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


加好友 发短信
等级：超级版主 帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2023/11/28 22:05:00 [只看该作者]

请上传实例测试

 回到顶部
总数 23 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04102 秒, 5 次数据查询