是否有任何简单的方法可以跟踪 lightswitch
应用屏幕上的更改?
我有一个显示客户信息的表单 (listdetail
)。当我保存它时,我想将更改的内容写入历史表。
最佳答案
找到答案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
关于visual-studio - 在 lightswitch 应用程序中保存屏幕更改历史记录,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/7628499/