关联表的数据引用 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在各录入表中，引用客户表中数据，客户名称，工序，单产值。三项一起的，但是在客户表中更新数据增加新数据后，在各录入表中需要更新，能不能自动更新。

或者换一种引用方式。

客户名称工序单产值是三项连一起的！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:精品盒.rar

不对，不是那样的你看我那个表，我需要在客户表中不断录入，但不是每个录入的数据都要在另一个表中更新出来，而且我那个是三项一起的

不是，我那个比这个复杂的多

新的问题：我的所有的员工姓名都在员工表内，工人做工要在各录入表（精品盒录入表、台面录入表、机刀录入表……）中录入，各项统计我是通过关联表，表达式做的，但是一列表只能做一个关联的表达式，员工表在精品盒录入中求和，就不能在在台面录入中求和，这需要怎么解决啊！

谢谢

我要的不是更新，是点选。在一个表中录入数据后，在另一个表中需要时下拉菜单点选出来就可以了。

能否说的详细一点，比如我的代码写到那个位置去（在那个表中写，写到事件那个名称下），能否在我的表的写个事例，我要在员工表中汇总其他5个录入表的虚给产值！

请做下事例，谢谢！

在员工表中将精品盒录入表，台面录入表，机刀录入表，综合录入表，纸箱录入表5个表中的虚给产值，根据姓名进行统计求和。

您可以看一下，我数据引用那，我想做到想精品盒录入表中客户名称列一样，只要点击出客户名称，下拉菜单显示出来，我点击选择那个工序多少单价就可以了，但是现在问题是我在客户表中新录入一项数据后，在精品盒录入表中不能同步更新，我该怎么办！

谢谢！

提示这个错误，我不知道怎么写了！谢谢，帮我修改一下！
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20130827112202.png

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

麻烦帮忙改下代码谢谢

主题：关联表的数据引用