主题：关联表的数据引用

谢谢！

Select Case e.DataCol.name

    Case "数量","单产值","计时产值","虚给产值","负产值","姓名","日期"

        If e.DataRow.IsNull("姓名")=False AndAlso e.DataRow.IsNull("日期")=False Then

            Dim dr As DataRow = DataTables("工资统计表").Find("日期 = #" & e.DataRow("日期") & "# and 员工姓名 = '" & e.DataRow("姓名") & "'")

            If dr Is Nothing Then

                Dim dr2 As DataRow = DataTables("工资统计表").AddNew

                dr2("计件产值")=e.DataTable.Compute("sum(实产值_计件)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")

                dr2("计时产值")=e.DataTable.Compute("sum(计时产值)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")

                dr2("需给产值")=e.DataTable.Compute("sum(虚给产值)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")

                dr2("员工姓名")=e.DataRow("姓名")

                dr2("总产值")=e.DataTable.Compute("sum(总产值)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")

                dr2("日期")=e.DataRow("日期")

                dr2("工资")=e.DataTable.Compute("sum(总产值)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")*0.06

            Else

                dr("计件产值")=e.DataTable.Compute("sum(实产值_计件)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")

                dr("计时产值")=e.DataTable.Compute("sum(计时产值)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")

                dr("需给产值")=e.DataTable.Compute("sum(虚给产值)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")

                dr("总产值")=e.DataTable.Compute("sum(总产值)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")

                dr("工资")=e.DataTable.Compute("sum(总产值)","日期 = #" & e.DataRow("日期") & "# and 姓名 = '" & e.DataRow("姓名") & "'")*0.06

            End If

            If e.DataCol.name="虚给产值" ,"实产值_计件" ,"计时产值_计时" ,"总产值" ,"工资" Then

            End If

                Dim dr2 As DataRow = DataTables("员工表").Find("姓名='" & e.DataRow("姓名") & "' And 部门='精品盒'")

                If dr2 IsNot Nothing Then

                    dr2("虚给产值")=e.DataTable.Compute("sum(虚给产值)","姓名='" & e.DataRow("姓名") & "'")

                    dr2("实产值_计件")=e.DataTable.Compute("sum(实产值_计件)","姓名='" & e.DataRow("姓名") & "'")

                    dr2("计时产值_计时")=e.DataTable.Compute("sum(计时产值_计时)","姓名='" & e.DataRow("姓名") & "'")

                    dr2("总产值")=e.DataTable.Compute("sum(总产值)","姓名='" & e.DataRow("姓名") & "'")

                    dr2("工资")=e.DataTable.Compute("sum(工资)","姓名='" & e.DataRow("姓名") & "'")

                End If

                

            End If

        End If

麻烦帮忙改下代码 谢谢

请您将精品盒录入表内的实产值、计时产值、虚给产值、总产值、工资这5项都在员工表中进行统计，麻烦把代码帮我写一下，其他几个部门的我就能画了！