主题：关联表的数据引用

这个有问题：

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

 

应该：

 

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
        End If
End Select
Select Case e.DataCol.name
    Case "虚给产值" ,"实产值_计件" ,"计时产值_计时" ,"总产值" ,"工资"
        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 Select

 

欲速则不达，你还是先看帮助系统学习吧，否则比人给你写的代码，你看都看不明白，意义何在呢？

 

看帮助一定要按顺序，头一两遍可以不求甚解，第三遍开始要将每个例子实际操作演练一遍，不明白的就上论坛求助。
三遍之后才开始做系统，先设计好表，想做什么功能，就做什么功能，遇到问题在帮助找答案，找不到的在论坛提问，不断遇到问题，不断解决问题，慢慢就熟悉了。
此外一定要先掌握《使用指南》，然后再看《开发指南》

 

我又不做开发，我只是想用这个软件，我需要这些功能，这些功能在使用里解决不了，没办法需要写代码，做开发，我一个文科生，我怎么看得懂那些代码啊！

我要是真的能看的懂开发，写的了代码，估计你们都可以失业了！

 

呵呵，其实这里的绝大多数人和你一样，都是不懂开发的，经过学习之后，很多都能开发出不错的管理系统。

foxtable的目的就是降低软件开发的门槛，让多数人能开发出适合自己的管理软件。

谁都是从不懂开始的。

很是感谢！但是就代码问题，我还是坚持我的意见，对于我一个女生来说，能就这个软件会用使用指南，已经很不容易了，让我们学习开发指南，在开发自己想要的功能，太难了！不是一点啊！

1、看看我依样画葫芦，写的代码怎么样，可以通过不提示错误了，但是很严重的问题是，我录入数据了，但是在客户表和员工表中都没有进行数据统计啊！谢谢！！！

注意：是员工表中的统计数据要来源于5个不同的录入表中！

客户表中  实产值=精品盒录入表中实产值+台面录入表中实产值+机刀录入表中实产值+综合录入表中实产值+纸箱录入表中实产值

我花了15分钟，想帮你做一下，结果差点崩溃，你最基本的概念都没有掌握，你还是回头看三遍帮助再说吧。

你在学习和设计过程遇到问题，我们可以给答疑解惑，但是不要指望我们免费从零开始给你写一个系统。