主题：[求助]SQLTable表中想做到数据及时更新的问题

For Each dr1 As DataRow In DataTables("a").DataRows
    If dr1.RowState <> DataRowState.Unchanged Then
        Dim dr2 As DataRow = DataTables("b").find("条件")
        If dr2 Is Nothing Then
            dr2 = DataTables("b").AddNew()
        End If
        dr2("d1") = dr1("d1")
        dr2("d2") = dr1("d2")
        dr2("d3") = dr1("d3")
    End If
Next