显示【会员电话】【店名】【a有效积分】【a有效兑换】在临时表什么显示 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3907人关注过本帖树形打印复制链接主题：显示【会员电话】【店名】【a有效积分】【a有效兑换】在临时表什么显示

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：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

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：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("积分比例")

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/11/28 21:22:00 [显示全部帖子]

没看懂

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：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.店名 ',%'"

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/11/28 22:05:00 [显示全部帖子]

请上传实例测试

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：111427 积分：567211 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/11/28 23:01:00 [显示全部帖子]

……

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

DataTables("dt有效积分").DataCols.Add("a有效积分", GetType(Double))

For Each dr As DataRow In DataTables("dt有效积分").datarows

dr("dt有效积分") = dr("实收金额") / pr1("积分比例")