\'表ADataColChanged事件代码

Dim dr As DataRow = e.DataRow
if e.DataCol.Name = "办理业务" Then
    Dim pr As DataRow = dr.GetParentrow("表B")
    if pr IsNot Nothing Then
        dr("大型价格") = pr("大型单价")
        dr("小型数量") = pr("小型数量")
        dr("小型价格") = pr("小型单价")
        if dr.IsNull("大型数量") = False Then
            dr("大型数量") = pr("大型数量")
        End If
    Else
        dr("大型价格") = Nothing
        dr("小型数量") = Nothing
        dr("小型价格") = Nothing
        dr("大型数量") = Nothing
    End If
End If

好像不对，我的要求是：当我输入“大型注册”的时候，窗口中显示：

大型数量：2

大型价格：100（表B中大型单价*表A中大型数量）

大型数量里面还可以更改为别的数，例如改为：5

大型数量：5

大型价格：250

就是说默认是从表B引用过来的数据，但是我还可以自己更改

可是改完后，价格怎么不变呢？

例如：大型数量改为5，价格：250，（表B中大型单价*表A中大型数量）

这个是根据数量算出来的

那就继续修改代码啊：

Dim dr As Datarow = e.Datarow
Dim pr As Datarow = dr.GetParentrow("表B")
If pr IsNot Nothing Then
    Select Case  e.Datacol.Name
        Case  "办理业务"
            If pr IsNot Nothing Then
                dr("大型数量") = pr("大型数量")
                dr("小型数量") = pr("小型数量")
            End If
        Case "大型数量"
            dr("大型价格") = pr("大型单价") * dr("大型数量")
        Case "小型数量"
            dr("小型价格") = pr("小型单价") * dr("小型数量")
    End Select
End If