Dim db As New iconportalEntities 'Get records in the Artwork Batch Dim LogRecords = db.ArtworkRequestLog.Where(Function(c) c.F1Int = ukey) For Each ArtworkRequestLog In LogRecords Dim DataLineUK As Integer = ArtworkRequestLog.ItemKey 'For each line in Artwork Batch: Update related Data line Dim DataRecord = db.Datas.SingleOrDefault(Function(c) c.UK = DataLineUK) DataRecord.TemplateName = Nothing DataRecord.ArtworkRef = "" DataRecord.Grade = Nothing 'Remove Line from Artwork Batch Dim ALogRecord = db.ArtworkRequestLog.SingleOrDefault(Function(c) c.UKEY = ukey) db.ArtworkRequestLog.Remove(ALogRecord) Next 'Now Delete the Artwork Request Batch Dim ABatchRecord = db.ArtworkBatchRequestLog.SingleOrDefault(Function(c) c.UKEY = ukey) db.ArtworkBatchRequestLog.Remove(ABatchRecord) db.SaveChanges() db.Dispose()
SingleOrDefault
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)