[求助]两个表格中数据对应行设置关联并增加对应那么多行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

非常感谢~ 可以了最终形成这样的格式

2014/6/12 7012 上海青吃 1

2014/6/12 7012 苦瓜不吃 0

2014/6/12 7012 丝瓜吃 1

2014/6/12 7012 西红柿爱吃 1

2014/6/12 7012 黄瓜吃 1

2014/6/12 7013 上海青吃 1

2014/6/12 7013 苦瓜不吃 0

2014/6/12 7013 丝瓜不吃 0

2014/6/12 7013 西红柿吃 1

2014/6/12 7013 黄瓜爱吃 1

麻烦再问一下我想增加一个字段小计可以统计对应日期会员配比累加的值（占据对应的行数）我只知道小计这个字段应该弄成表达式列代码不会实现

怎么实现这种？

此主题相关图片如下：8.png

例如

小计

2014/6/12 7012 上海青吃 1

2014/6/12 7012 苦瓜不吃 0

2014/6/12 7012 丝瓜吃 1 4（占据5行）

2014/6/12 7012 西红柿爱吃 1

2014/6/12 7012 黄瓜吃 1

-----------这个下划线我自己加的区分下

2014/6/12 7013 上海青吃 1

2014/6/12 7013 苦瓜不吃 0

2014/6/12 7013 丝瓜不吃 0 3（同样占据5行）

2014/6/12 7013 西红柿吃 1

2014/6/12 7013 黄瓜爱吃 1

不好意思发出来的格式貌似很乱

2014-06-12 7012 上海青吃 1

2014-06-12 7012 苦瓜不吃 0

2014-06-12 7012 丝瓜吃 1 4（占据5行）

2014-06-12 7012 西红柿爱吃 1

2014-06-12 7012 黄瓜吃 1

大概这样的形式~

你可以设置一下汇总。

http://www.foxtable.com/help/topics/00144.htm

设置出来的统计结果是这样的~

能不能小计结果显示在表的小计字段里面并占据每个客户对应的行数呢

比如7012有5行数据配比累计为4 要求实现小计列显示的值4并占据5行这样以后我要取出每个客户的累加值会比较方便~
图片点击可在新窗口打开查看

此主题相关图片如下：9.png

SystemReady = False
Select Case e.DataCol.name
    Case "日期"
        If e.DataRow.Isnull("日期") = False Then
            Dim drs As List(Of DataRow) = DataTables("蔬菜收集表").Select("日期 = #" & e.DataRow("日期") & "#")
            For Each dr As DataRow In DataTables("当天配送会员").Select("日期 = #" & e.DataRow("日期") & "#")
                For Each cdr As DataRow In drs
                    Dim ndr As DataRow = e.DataTable.addnew
                    ndr("日期") = dr("日期")
                    ndr("会员编号") = dr("会员编号")
                    ndr("品种") = cdr("品种")
                    Dim fdr As DataRow = DataTables("蔬菜喜好表").Find("会员编号 = '" & dr("会员编号") & "' and 产品 = '" & cdr("品种") & "'")
                    If fdr IsNot Nothing Then
                        ndr("喜好") = fdr("喜好")
                        If fdr("喜好") = "吃" OrElse fdr("喜好") = "爱吃" Then
                            ndr("配比") = 1
                        Else
                            ndr("配比") = 0
                        End If
                    End If
                Next
            Next
            For Each dr As DataRow In e.DataTable.Select("日期 = #" & e.DataRow("日期") & "#")
                dr("小计") = e.DataTable.compute("sum(配比)", "日期 = #" & dr("日期") & "# and 会员编号 = '" & dr("会员编号") & "'")
            Next
            e.DataRow.Delete
        End If
End Select
SystemReady = True

代码运行可以实现

但就是占据的行数内我是只想显示一个值如图2

例如7012 小计累加结果为4 占据5行只在那个5行中间显示一个值4

我想通过合并模式但这个设置好像有点问题~7014 和7015 小计结果都是4 结果合并到一块去了正常情况 7014小计结果应该是4 占据5行显示在7014对应的那5行中间 7015也应该是这样的~ 还是需
图片点击可在新窗口打开查看

此主题相关图片如下：10.png

此主题相关图片如下：11.png

要通过代码来实现吗？

这个没有办法。如果要达到合并目的，你的小计列要移到第三列，然后合并类型要用【标准】

好吧~ 虽然达不到这样还是非常感谢你这么耐心解决我的这么多问题图片点击可在新窗口打开查看

主题：[求助]两个表格中数据对应行设置关联并增加对应那么多行