请教通过公式跨表计算问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下载信息 [文件大小：下载次数： ]
点击浏览该文件:化验分析.table

此主题相关图片如下：公式.jpg

三个录入表为化验分析过程计量数据，需要通过复杂公式导出到溶液站输出表上，要实现以下目标，多次努力没有成功，请教大师指教：
1、三个录入表取样日期中一天有多个取样时间，并且有重复。
2、各录入表计量过程数据通过公式在输出表转换为分析结果并且即时更新。
3、使用了两种方法SQLGroupTableBuilder和DataColChanged都没有成功，哪个更合理？（使用SQL外部数据源）
4、输出表等于不同列来自于不同录入表。
5、麻烦大师指导一个简单例子。

请老师指教，给出一列结果即可。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:化验分析.table

非常感谢老师指教，实现了录入数据到输出表的正常显示，如何实现录入表的日期和时间在输入后自动更新到输出表，还麻烦老师指教，

三个录入表为化验分析过程计量数据，需要通过复杂公式导出到溶液站输出表上，要实现以下目标，通过老师指教实现录入数据到输出，有以下问题请教大师指教：

1、三个录入表取样日期中一天有多个取样时间，并且有重复，如何实现录入表填入日期和时间后即时自动在输出表显示，即自动更新功能如何实现？

2、使用手工编码填充数据，代码见后面，感觉不合适。

3、使用跨表引用的自动更新，每输入一个数据变化一次，输入10个数据输出表生成10次同样内容。

4、使用数据填充器，出现数据重复填充。

5、三个录入表时间先后顺序不固定，请教如何实现录入表填入日期和时间后即时自动在输出表显示，即自动更新功能如何实现？

分别在每个表的datacolchanged加入下面的代码

参考 http://www.foxtable.com/help/topics/2490.htm

Select Case e.DataCol.name

Case "取样日期", "取样时间"

If e.DataRow.IsNull("取样日期") = False AndAlso e.DataRow.IsNull("取样时间") = False Then

Dim filter As String = "取样日期 = #" & e.DataRow("取样日期") & "# and 取样时间 = '" & e.DataRow("取样时间") & "'"

Dim fdr As DataRow = DataTables("溶液站输出").Find(filter)

If fdr Is Nothing Then

fdr = DataTables("溶液站输出").AddNew

fdr("取样日期") = e.DataRow("取样日期")

fdr("取样时间") = e.DataRow("取样时间")

End If

DataTables("溶液站输出").DataCols("取样日期").RaiseDataColChanged(fdr)

End If

End Select

非常感谢老师指教，祝老师周末快乐！！！！！！，祝公司兴旺发达！！！！！，祝弧表用户越来越多，越用越好！！！！！

主题：请教通过公式跨表计算问题