主题：数据跨表更新

If e.DataCol.Name = "商品条码" Then
    If e.NewValue Is Nothing Then
        e.DataRow("商品名称") = Nothing
        e.DataRow("规格") = Nothing
        e.DataRow("单位") = Nothing
        e.DataRow("进价") = Nothing
        e.DataRow("售价") = Nothing
        e.DataRow("类别编码") = Nothing
        e.DataRow("产地") = Nothing
    Else
        Dim dr As DataRow
       
dr = DataTables("云数据").SqlFind("[商品条码] = '" & e.NewValue & "'")
        If dr IsNot Nothing
            e.DataRow("商品名称") = dr("商品名称")
            e.DataRow("规格") = dr("规格")
            e.DataRow("单位") = dr("单位")
            e.DataRow("进价") = dr("进价")
            e.DataRow("售价") = dr("售价")
            e.DataRow("类别编码") = dr("类别编码")
            e.DataRow("产地") = dr("产地")
        End If
    End If
End If

这段代码是执行在表A中商品条码如果在数据库中有对应值，就自动填充商品名称、规格、单位、进价、售价等内容，那么请问，如果表A中的商品条码在数据库中没有对应值，如何让数据库自动更新表A中的数据呢，例如表A中商品条码是1001 在数据库中并没有对应值，那么如何在我在表A中输入各种数据后，自动同步增加到数据库中，还需要将上面的代码在数据库中执行一遍吗？