I have a table with four fields making up the primary key. I need to be able to change one of these values but I still need it to be part of the primary key. When I try to modify that value and a few others, it fails, saying that a different, non null element can't be null and, crucially, that the insert failed, where I was expecting an update
Dim Refund As New BookingDB.EntityClasses.TicketRefundEntity(RefundsList.Rows(i)("SheetRef"), _
RefundsList.Rows(i)("BookingRef"), RefundsList.Rows(i)("TicketNumber"), RefundsList.Rows(i)("MachineNumber"))
Refund.Save() ' Debug - This save works
Refund.FullRefundReason = RefundsList.Rows(i)("FullRefundReason")
If cmbView.Text = "Un-Printed" Then
Refund.JourneyCharge = RefundsList.Rows(i)("JourneyCharge")
Refund.GrossRefund = RefundsList.Rows(i)("GrossRefund")
Refund.Atocfee = RefundsList.Rows(i)("Atocfee")
Refund.AgencyFee = RefundsList.Rows(i)("AgencyFee")
End If
If ChangePeriod Then
Refund.Period = RefundsList.Rows(i)("Period")
' This is where I need to change the Sheet Reference. I need to keep
' this in the primary key so tickets can be resubmitted if rejected.
If cmbSheet.Text = "New" Then
Refund.SheetRef = RefundsList.Rows(0)("TicketNumber") & RefundsList.Rows(0)("MachineNumber")
Else
Refund.SheetRef = cmbSheet.Text
End If
SheetRef = Refund.SheetRef
End If
Refund.Save()
I am using Self Servicing with VS2005