主题：请教如何设计这个表达式

     因为冲压车间工资表的单价是用表目录树自动生成的，不是用公式自动引用，刚看了视频教程，我把程序编到单价表的事件里，结果把冲压车间工资表的单价全搞乱了，跟价格表的单价不乎，如何把单价纠正过来？

本来 计算 按钮的就会自动获取单价填写进去啊

 

        Dim fdr As DataRow = DataTables("价格表").find("产品名称 = '" & dr("产品名称") & "' and 工序 = '" & dr("生产工序") & "'")
        If fdr IsNot Nothing
            dr("单价") = fdr("单价")
        End If

目录树是自动引用了，但不能同步更新，我想在单价表中修改、添加了数据，冲压车间工资的产品名称列表同步获取，更新。

 参考

 

http://www.foxtable.com/help/topics/1453.htm

 

这个我看过了，就是因为看了，昨晚安照程序做了，结果把价钱全乱了，害我删除程序一个个改回来，可没自动更新功能我每添加新品种就要重新打开，很不方便。

我开始用这样的程序，结果单价全乱了，后来改成我上传的程序，应该有问题，没自动更新功能。

Select Case e.DataCol.Name
Case "品名","型号","规格","单价"
Dim Filter As String = "[产品编号] = '" & e.DataRow("产品编号") & "'"
DataTables("订单").ReplaceFor(e.DataCol.Name, e.NewValue, Filter)
End Select

 

当然并不是死套这公式，根据我的表列名是什么改过来的。

1、产品名称和工序是标注唯一的，价格表那里你不能乱改的啊。

 

2、需要引用的表，datacolchanged事件写入代码

 

Select Case e.DataCol.name
    Case "产品名称", "生产工序"
        Dim fdr As DataRow = DataTables("价格表").find("产品名称 = '" & e.DataRow("产品名称") & "' and 工序 = '" & e.DataRow("生产工序") & "'")
        If fdr IsNot Nothing
            e.DataRow("单价") = fdr("单价")
        End If
End Select

 

3、如果要修改价格表单价也更新，就在datacolchanged事件写代码

 

Select Case e.DataCol.name
    Case "单价"
        DataTables("冲压车间工资").DataCols("产品名称").RaiseDataColChanged("产品名称 = '" & e.DataRow("产品名称") & "' and 生产工序 = '" & e.DataRow("工序") & "'")
End Select

不仅修改能自动更新，在价格表添加新品种，工资表中的目录树也自动更新，我加了你的公式还是没看到新添加的产品名称。

你把目录树重新build一次即可，代码可以写在按钮或者MainTableChanged等事件

 

http://www.foxtable.com/help/topics/2031.htm

 

     看了视频教程，也看了使用指南，在按钮事件里加入了