合计 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

共有4617人关注过本帖树形打印复制链接主题：合计

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

合计

Post By：2020/11/28 15:33:00 [显示全部帖子]

Dim lbl7 As WinForm.Label

lbl7 = e.Form.Controls("30天生日")

lbl7.Text = DataTables("会员资料").sqlCompute( "sum(行数)" , " 注册店名 = '" & e.Form.Controls("店名").Text & "' And ','+生日多列+',' > '%," & e.Form.Controls("月日").value & "%,'And ','+生日多列+',' <= '%," & e.Form.Controls("月日30").value & "%,'")

合计不岀来

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 16:14:00 [显示全部帖子]

那么弄

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 16:41:00 [显示全部帖子]

生日月列，生日日列，其它月列，其它日列，其它2月列，其它2日列，

查询和合计，什么办法好

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 16:42:00 [显示全部帖子]

我生日以后加新的，又得更新吗

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 17:00:00 [显示全部帖子]

这个什么弄的，每天要更新表吗

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 17:27:00 [显示全部帖子]

Dim nr As Row

For Each r3 As Row In Tables("会员资料").Rows

For Each s As String In r3("生日多列").split(",")

nr = Tables("会员资料月日明细").AddNew

nr("注册日期") = r3("注册日期")

nr("注册店名") = r3("注册店名")

nr("电话") = r3("电话")

nr("生日月日") = s

nr("行数") = r3("行数")

加不重复的数据

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 17:44:00 [显示全部帖子]

注册日期

注册店名

电话

生日月日

这几个不重复

要不然点一下一个点一下一个

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/28 18:03:00 [显示全部帖子]

Dim nr As DataRow

For Each r3 As Row In Tables("会员资料").Rows

For Each s As String In r3("生日多列").split(",")

nr =DataTables("会员资料月日明细").find("注册日期='" & r3("注册日期") & "' and 注册店名='" & r3("注册店名") & "' and 电话= '" & r3("电话") & "' and 生日月日= '" & s & " ' ")

If nr Is Nothing

nr = DataTables("会员资料月日明细").AddNew

nr("注册日期") = r3("注册日期")

nr("注册店名") = r3("注册店名")

nr("电话") = r3("电话")

nr("生日月日") = s

nr("行数") = r3("行数")

End If

生日多列原是0606,0707变动成0606,0808会员资料月日明细跟着变动，不要又加一个0808的

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/30 16:07:00 [显示全部帖子]

Select Case e.DataCol.Name

Case "生日日期","其它节日日期","其它2节日日期","其它日期备注","其它2日期备注"

DataTables("会员资料月日明细").LoadFilter = "电话 = '" & e.DataRow("电话")& "'"

DataTables("会员资料月日明细").Load

Dim nr As DataRow

For Each r3 As Row In Tables("会员资料").Rows

For Each s As String In r3("生日月日").split(",")

nr =DataTables("会员资料月日明细").sqlfind("注册日期='" & r3("注册日期") & "' and 注册店名='" & r3("注册店名") & "' and 电话= '" & r3("电话") & "' and 生日月日='" & s & "' ")

If nr Is Nothing Then

nr = DataTables("会员资料月日明细").AddNew

nr("注册日期") = r3("注册日期")

nr("注册店名") = r3("注册店名")

nr("电话") = r3("电话")

nr("生日月日") = s

nr("行数") = r3("行数")

nr("注册店名账号") = r3("注册店名账号")

End If

End Select

Case "生日日期","其它节日日期","其它2节日日期","其它日期备注","其它2日期备注" 内容有变动 DataTables("会员资料月日明细")跟着变动不要又加一行，

qazlinle6

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

加好友

发短信

等级：七尾狐帖子：1553 积分：10507 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2020/11/30 16:19:00 [显示全部帖子]

不行改一下内容要重新加一行，本来是0606，改成0707 会员资料月日明细表应该只有一行0707，可是现在有0606，和0707两行

下一主题 >> << 上一主题

总数 19 1 2 下一页

主题：合计