保存在lightswitch應用程序中的屏幕更改歷史記錄

Question

是否有任何簡單的方法來跟蹤lightswitch應用程序屏幕上更改的內容？

我有一個窗體顯示有關客戶的信息（listdetail）。當我保存它時，我想寫一個歷史記錄表什麼改變了。

Answer 1

找到答案here。

只需在控件的_updating,_inserting事件中使用以下代碼即可。

Private Sub Employees_Updating(entity As Employee) 
     Dim change = entity.EmployeeChanges.AddNew() 
     change.ChangeType = "Updated" change.Employee = entity 
     change.Updated = Now() 
     change.ChangedBy = Me.Application.User.FullName 

     Dim newvals = "New Values:"  
     Dim oldvals = "Original Values:"  

     For Each prop In entity.Details.Properties.All(). 
      OfType(Of Microsoft.LightSwitch.Details.IEntityStorageProperty)() 

      If prop.Name <> "Id" Then    

       If Not Object.Equals(prop.Value, prop.OriginalValue) Then     
        oldvals += String.Format("{0}{1}: {2}", vbCrLf, prop.Name, prop.OriginalValue) 
        newvals += String.Format("{0}{1}: {2}", vbCrLf, prop.Name, prop.Value) 
       End If   
      End If  

     Next 

     change.OriginalValues = oldvals 
     change.NewValues = newvals 

End Sub