主题：回写数据至sql数据库

加入一列标记列，在datacolchanged事件写代码

 

e.datarow("修改") = true

 

你写按钮保存的时候，就对应的查找修改各个表的数据

 

For each dr As DataRow in DataTables("表A").select("修改 = true")

    Dim fdr As DataRow = Datatables("表B").find("第一列 = '" & dr("第一列") & "'")

    If fdr Is Nothing Then

        fdr = Datatables("表B").addnew

    End If

    fdr("第一列") = dr("第一列")

    fdr("第二列") = dr("第二列")

Next