主题：[求助]开一个帖请教问题~

代码

Tables("装配表").Filter=" [日期] = '" & e.Form.Controls("DateTimePicker1").Value & "'"
Dim d As Date = e.Sender.Text
If DataTables("装配表").Find("日期 = #" & d & "#") Is Nothing Then
    SystemReady = False
    Dim n,n1,n2 As Integer
    Dim drs As List(Of DataRow) = DataTables("蔬菜采收表").Select("日期 = #" & d & "#")
    For Each dr As DataRow In DataTables("当天配送会员").Select("日期 = #" & d & "#")
        '统计是否满足装箱总斤数
        n=0
        Dim idx As Integer = 0
        For Each cdr As DataRow In drs
            Dim ndr As DataRow = DataTables("装配表").addnew
            ndr("日期") = dr("日期")
            ndr("会员编号") = dr("会员编号")
            ndr("品种") = cdr("品种")
            ndr("装箱总斤数")=dr("装箱斤数")
            Dim fdr As DataRow = DataTables("蔬菜喜好表").Find("会员编号 = '" & dr("会员编号") & "' and 产品 = '" & cdr("品种") & "'")
            Dim pfdr As DataRow = DataTables("装配表").Find("会员编号 = '" & dr("会员编号") & "' and 品种 = '" & cdr("品种") & "' and 日期 = #" & d.AddDays(-1) & "#")
            If pfdr IsNot Nothing Then
                ndr("昨天配比") = pfdr("配比")
                ndr("昨天品种") = pfdr("品种")
            End If
            pfdr = DataTables("装配表").Find("会员编号 = '" & dr("会员编号") & "' and 品种 = '" & cdr("品种") & "' and 日期 = #" & d.AddDays(-2) & "#")
            If pfdr IsNot Nothing Then
                ndr("前天配比") = pfdr("配比")
                ndr("前天品种") = pfdr("品种")
            End If
            If fdr IsNot Nothing Then
                ndr("喜好") = fdr("喜好")
                If fdr("喜好") = "吃" Then
                    n=n+1
                    '配比超过5斤
                    If n<=5 Then
                        'ndr("配比") = 1
                        ndr("配比") = IIF(ndr("昨天配比")>0, 0, 1)
                        ndr("喜好参考")=1
                    Else
                        'ndr("配比") = 0
                        ndr("配比") = IIF(ndr("昨天配比")>0, 0, 1)
                        ndr("喜好参考")=1
                    End If
                ElseIf fdr("喜好") = "爱吃" Then
                    n=n+2
                    '配比超过5斤
                    If n<=5 Then
                        'ndr("配比") = 1
                        ndr("配比") = IIF(ndr("昨天配比")>0, 0, 1)
                        ndr("喜好参考")=2
                    Else
                        'ndr("配比") = 0
                        ndr("配比") = IIF(ndr("昨天配比")>0, 0, 1)
                        ndr("喜好参考")=2
                    End If
                Else
                    ndr("配比") = 0
                    ndr("喜好参考")=0
                End If
                '没有找到记录     '
            Else
                n=n+1
                '配比超过5斤
                If n<=5 Then
                    ndr("喜好")="吃"
                    'ndr("配比") = 1
                    ndr("配比") = IIF(ndr("昨天配比")>0, 0, 1)
                    ndr("喜好参考")=1
                Else
                    ndr("喜好")="吃"
                    'ndr("配比") = 0
                    ndr("配比") = IIF(ndr("昨天配比")>0, 0, 1)
                    ndr("喜好参考")=1
                End If
            End If
        Next
    Next
    For Each dr As DataRow In DataTables("装配表").Select("日期 = #" & d & "#")
        dr("小计") = DataTables("装配表").compute("sum(配比)", "日期 = #" & dr("日期") & "# and 会员编号 = '" & dr("会员编号") & "'")
        'dr("装箱参考")=dr("配比")
    Next
    SystemReady = True
End If

Dim t As Table = Forms("装配窗体").Controls("Table1").Table
Dim b As New GroupTableBuilder("统计表1", DataTables("装配表"))
b.Groups.AddDef("品种") '根据产品分组
b.Totals.AddDef("配比", AggregateEnum.Sum, "总数量") '对数量进行统计
b.Filter = "日期 = #" & d & "#"
t.DataSource = b.BuildDataSource '生成统计表
t.DataTable.DataCols.Add("实际产量", Gettype(Integer))
For Each r As Row In t.Rows
    Dim fdr As DataRow = DataTables("蔬菜采收表").Find("日期 = #" & d & "# And 品种 = '" & r("品种") & "'")
    If fdr IsNot Nothing Then
        r("实际产量") = fdr("实际产量")
    End If
Next