主题：狐爸爸，万能的FOXTABLE能实现这样的功能吗？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1(6).table

想问问狐爸爸能实现这样的功能吗？在表A中选择分摊方法及分摊对象后，合同分摊及付款分摊列根据选择的内容及表C的面积按面积自动计算分摊金额。 如假设001号合同金额为100000元，选择在所有产品类型中按土地面积分摊，则根据表C的面积计算，住宅应分摊5/18*10=27777.78元，购物中心应分摊10/18*10=55555.56元，商务酒店应分摊3/18*10=16666.67元。 假设002号合同金额为2000元，需按各产品的建筑面积在住宅及购物中心中分摊，则根据表C住宅及购物中心合计面积为20000+110000=130000平米，住宅应分摊20000/130000*2000，购物中心应分摊110000/130000*2000. 不知道FOXTABLE能实现这样复杂的计算吗？我相信能，求助狐爸爸~~~~~~跪谢！

问题是我不知道怎么设置自动计算的代码啊~

请问狐爸爸，关于类似的计算函数我应该参照帮助的哪一段？

好的，谢谢狐爸爸。。

狐爸爸，根据你的提示，我将表C的内容并到了表A中，在表A的datachanged事件中设置了以下事件： If e.DataCol.Name = "分摊方法" And e.DataCol.Name = "分摊对象" Then If e.DataRow("分摊方法") = "占地面积法" And e.DataRow("分摊对象") = "全项目" Then DataTables("表A").DataCols("合同分摊_住宅").Expression = "占地面积_住宅/(占地面积_住宅+占地_购物中心+占地面积_商务酒店)* 合同金额" End If End If 但是还是无法计算出公式，请狐爸指点，谢谢！！另外为什么我的帖子显示出来没有分行？？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1(6).table

是设置的表达式列啊。。。

感谢，不知道还有什么好方法，暂时只能用这种笨办法了，呵呵

我想设置如果分摊方法或者分摊对象没选的话，则不进行分摊，请帮我看看代码哪里有问题？ If e.DataCol.Name = "分摊方法" OrElse e.DataCol.Name = "分摊对象" Then If e.DataRow("分摊方法") = Nothing Or e.DataRow("分摊对象") = Nothing Then e.DataRow("合同分摊_住宅") = Nothing e.DataRow("合同分摊_购物中心") = Nothing e.DataRow("合同分摊_商务酒店") = Nothing Else If e.DataRow("分摊方法") = "占地面积法" OrElse e.DataRow("分摊对象") = "全项目" Then DataTables("表A").DataCols("合同分摊_住宅").Expression = "占地面积_住宅/(占地面积_住宅+占地面积_购物中心+占地面积_商务酒店)* 合同金额" End If End If End If

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1(6).table

麻烦狐爸爸帮我看一下，我在表A中设置了datachanged事件代码如下： If e.DataCol.Name = "分摊方法" AndAlso e.DataCol.Name = "分摊对象" Then If e.DataRow("分摊方法") = Nothing OrElse e.DataRow("分摊对象") = Nothing Then e.DataRow("合同分摊_住宅") = Nothing Else If e.DataRow("分摊方法") = "占地面积法" AndAlso e.DataRow("分摊对象") = "全项目" Then DataTables("表A").DataCols("合同分摊_住宅").Expression = "占地面积_住宅/(占地面积_住宅+占地面积_购物中心+占地面积_商务酒店)* 合同金额" End If End If End If 但是我只要输入合同金额后，就自动分摊了，我想设置成一定要选择分摊方法及分摊对象后才按选择的内容分摊，有一项没选都不分摊，请狐爸爸指教，谢谢。

老大，改后无论选择分摊方法及分摊对象后又不分摊了。。。苦恼啊~~~~感谢不吝赐教！