主题：[求助]大神帮忙看下!

如果表结构是一样的，可以这样

If e.DataCol.name=" 变动类型"then
    If e.newvalue Is Or Nothing Then
        Dim r As Row=Tables("表B").addenw
        For Each c As Col In Tables("表B").Cols
            r(c.name) = e.DataRow(c.name)
        Next
        e.DataTables.delete DataTables.save
    End If
End If