主题：2个问题

1. 不明白你的意思！～ 再说，你的父表没有 CS2-CS1 子表怎么会有？？？

2. 代码应放在‘参数明细’表里：datacolchanged：：：：：

Dim dr As DataRow = e.DataRow
Select Case e.DataCol.Name
    Case "参数值"
 dr= datatables("表达式明细").find("[参数代号] = '" & currentTable.Current("参数代号") & "'")
 If dr IsNot Nothing Then
        dr("表达式") = "W" & "-" & dr("参数值") & "*" & "2"
end if
End Select

上面只对找到的子表的一条记录有效，要对所有‘参数代码’相同的行有效，这样：
Select Case e.DataCol.Name
    Case "参数值"
        Dim drs As List(Of DataRow)
        drs = DataTables("表达式明细").Select("[参数代号] = '" & currentTable.Current("参数代号") & "'")
        For Each dr As Datarow In drs
            dr("表达式") = "W" & "-" & dr("参数值") & "*" & "2"            
        Next
End Select

这个值是从父表中取得的（Parent(A).参数值），父表是要输入的呀～ ？

我这个代码属于小儿科，6楼don的更经典！～