主题：求助，如果一个表某列增加了值那么另外一个表自动增加一行并增加相应值？

“车辆信息”表的DataColChanged

If e.DataCol.Name = "车辆编号" OrElse e.DataCol.Name = "车牌号"  Then
    Dim dr As DataRow = DataTables("年审信息").AddNew()
    If e.DataRow.IsNull("车辆编号") = False AndAlso e.DataRow.IsNull("车牌号") = False Then
        dr("车辆编号") = e.DataRow("车辆编号")
        dr("车牌号") = e.DataRow("车牌号")
    Else
        dr("车辆编号") = Nothing
        dr("车牌号") = Nothing
    End If
End If