Inherits mmBusinessForm Private _getStatusByTRRequestPK As GetStatusByTRRequestPK Private _trstatus As TRStatus Private _statusType As StatusType Private _trackingNumber As TrackingNumber Private _trRequest As TRRequest Private _trackingPK As Integer Public Sub New(ByVal trackingPK As Integer) Me._getStatusByTRRequestPK = CType(Me.RegisterBizObj(New GetStatusByTRRequestPK), GetStatusByTRRequestPK) Me._trstatus = CType(Me.RegisterBizObj(New TRStatus), TRStatus) Me._statusType = CType(Me.RegisterBizObj(New StatusType), StatusType) Me._trackingNumber = CType(Me.RegisterBizObj(New TrackingNumber), TrackingNumber) Me._trRequest = CType(Me.RegisterBizObj(New TRRequest), TRRequest) ' This call is required by the Windows Form Designer. InitializeComponent() Me.grdStatus.AutoGenerateColumns = False Me._statusType.GetAllData() If trackingPK > 0 Then Me._getStatusByTRRequestPK.GetStatusByTRRequestPK(trackingPK) Me._trstatus.GetTRStatusByPK(Me._getStatusByTRRequestPK.Entity.TRStatusPK) Me._trRequest.GetTrackingRequestByPK(trackingPK) Me._trackingNumber.GetTrackingNumberByPK(Me._trRequest.Entity.TrackingNumberFK) _trackingPK = trackingPK End If End Sub Private Sub btnNew_Click(sender As System.Object, e As System.EventArgs) Handles btnNew.Click Me._trstatus.GetEmptyDataSet() Me._trstatus.NewEntity() Me._trstatus.Entity.TRRequestFK = _trackingPK Me._trstatus.Entity.LastUpdateDate = DateTime.Now Me._trstatus.Entity.LastUpdateUser = Environment.UserName*******************************************If I use the following line below it will save the number 1 in the field*************************************
'Me._trstatus.Entity.StatusTypeFK = 1 End Sub Private Sub btnSave_Click(sender As System.Object, e As System.EventArgs) Handles btnSave.Click Me.Save(Me._trstatus) Me._getStatusByTRRequestPK.GetStatusByTRRequestPK(_trackingPK) End SubThanks.