主题：麻烦看看这段代码的问题

表 a  是父表  表 b 是字表 

表a 的总公斤 是表b 实际公斤数 的sum

如果表b 的实际公斤数发生变化的话  表 a 的 运费 列= 表a 的 【总公斤】 * 【单价】

以上是我想要的结果，但是 下面这段代码好像不太给力。 总是提示错误信息， 所以请各位大侠指点一下奥！~~  非常感谢~~~！！！！

If e.DataCol.Name = "实际公斤数" Then '发生变化的是客户名吗?
    Dim dd As DataRow
    dd= DataTables("运单入账").Find("发货单号 = " & "'" & e.DataRow("发货单号") & "'" )
      If dd Is Nothing Then  '如果表B中不存在相同的记录
  
Else
  dd("运费")=dd("总斤数") * dd("单价")
End If
    End If