Hello. I have a combobox that will not work. I have all 5 properties set as they should be. When I save the form It gives me a foreign key exception becasue it's trying to save the number 0 in the FK field and not the PK that's set in the public property of the BO.

    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 Sub

Thanks.