主题：关联表

那就继续修改代码啊：

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