主题：动态改变窗口中的表格内容,狐狸爸爸给的样板出现问题

这样改一下：

 

If e.Table.name = "客户登记.套餐列表" Then
    Dim pr As Row = Tables("客户登记").Current
    If pr IsNot Nothing Then
        pr("套餐名称") = e.Row("套餐名称")
        pr("优惠折扣") = e.Row("套餐折扣")
        pr("套餐编号") = e.Row("套餐编号")
    End If
End If

现在是选择当前行，之前是选择父行，但是父行不止一个，系统不知道选择哪个父行，自然出错。