主题：求助！跨表自动更新

现在有2张表，订单主表和订单明细表，我写了一段代码，想实现如果客户列名称发生变化，则相应的订单明细表中的客户名称也一起改变，但是我的代码只能改明细表中的第一行，请问，如果明细表中相应的数据有若干行，希望可以一起改成新的值，代码该怎么改呀？

If e.DataCol.Name = "客户" Then '如果内容发生变动的是客户列
Dim dr As DataRow = DataTables("订单明细表").Find("客户订单号 = '" & e.DataRow("客户订单号") & "'")
        If dr IsNot Nothing Then
            dr(e.DataCol.Name) = e.DataRow(e.DataCol.Name)
        End If   
End If

谢谢 Bin 大侠的回复 还有huangfanzi。

我觉得狐表的论坛非常好，菜鸟们的答复总是能够得到大侠们的及时回复，这个感觉真好。

huangfanzi，花房子吗