您这种问题其实应该是逻辑上更重要点，我个人觉得您还不如在订单单身加个字段，按重量还是按数量，

毕竟有时候出现同一加工商既有称重的，也有计数的，这样的话灵活点！通过判断选了按重量还是按数量去

调用相应的关联单价

If e.DataCol.Name = "品名" Then \'如果内容发生变动的是品名列
    If e.NewValue Is Nothing Then \'如果新值是空白,也就是品名列的内容为空
        e.DataRow("单价") = Nothing \'那么清空此行单价列的内容
    Else
        Dim dr As DataRow
        \'否则在产品表查找同名的产品行,将找到的行赋值给变量dr
        dr = DataTables("产品").Find("[品名] = \'" & e.NewValue & "\'")
        If dr IsNot Nothing Then \'如果找到了同名的产品行,也就是dr不是Nothing
            e.DataRow("单价") = dr("单价")
        End If
    End If
End If

参考下吧

你可以设置订单表的prepareEdit事件：

For Each dr As DataRow  in e.DataRow.getChildRows("订单明细")

   if dr.Isnull("单价") = False Then

       e.Cancel = true

        Exit For

   End If

Next