主题：数据同步问题

在DataColchanged事件中设置代码：

Select Case e.DataCol.name
    Case "长","高", "宽"
        Dim nms() As String = {"a","b","c","e","f"}
        For Each nm As String In nms
            Dim cmd As New SQLCommand
            cmd.Connection Name = "数据源"
            cmd.CommandText = "Update " & nm & " Set " & e.DataCol.name & " = '" & e.NewValue & "'"
            cmd.ExecuteNonQuery
        Next
End Select