Foxtable(狐表) → 用户栏目 → 专家坐堂 → 合计


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

主题：合计
帅哥哟，离线，有人找我吗？
有点蓝
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

怎样才算不重复？

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


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

注册日期
注册店名
电话
生日月日
这几个不重复
要不然点一下一个点一下一个
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105877 积分：538442 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/28 17:47: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  ...其它不重复的列自己补全...")
if nr is nothing
        nr = dataTables("会员资料月日明细").AddNew
        nr("注册日期") = r3("注册日期")
        nr("注册店名") = r3("注册店名")
        nr("电话") = r3("电话")
        nr("生日月日") = s
        nr("行数") = r3("行数")
end if
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

生日多列原是0606,0707变动成0606,0808会员资料月日明细跟着变动，不要又加一个0808的
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

and 电话= '" & r3("电话") & "' and 生日月日= '" & s & "'  ")

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


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

   Case "生日日期","其它节日日期","其它2节日日期","其它日期备注","其它2日期备注"           内容有变动  DataTables("会员资料月日明细")跟着变动  不要又加一行，
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：105877 积分：538442 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/30 16:12:00 [只看该作者]

Select Case e.DataCol.Name
    Case "生日日期","其它节日日期","其它2节日日期","其它日期备注","其它2日期备注"
        Dim nr As DataRow
        Dim r3  As DataRow = e.DataRow
            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
                    nr("生日日期") = r3("生日日期")
                    nr("其它节日日期") = r3("其它节日日期")
……
            Next
End Select
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

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

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


加好友 发短信
等级：超级版主 帖子：105877 积分：538442 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/11/30 16:33:00 [只看该作者]

这种多值字段无法判断到底改了什么值。

个人建议：多值字段用来做展示尚可，不适合用来做各种业务关联和处理，非常麻烦，效率低下
 回到顶部
帅哥哟，离线，有人找我吗？
qazlinle6
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

那什么弄，我有三个会员生日列，如果不这样弄，什么统计生日和取值

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