主题：关联表

'表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