>nDamageId = Damages.DamageId >nRetval = SQLExec(lnSql,[SELECT DamageId From dbo.DamageNumbers Where DamageId = ?nDamageId],[DamageIds]) > >If Reccount('DamageIds') = 0 Or Isnull(DamageIds.DamageId) Or DamageIds.DamageId = 0 > Select DamageNumbers > Append Blank > This.Parent.DamageNoCombo.ListIndex = Reccount('DamageNumbers') >Else > Select DamageNumbers > Locate > Locate For DamageId = nDamageId >Endif > >nRetval = SQLExec(lnSql,[SELECT IDENT_CURRENT('dbo.DamageNumbers') + 1 AS >DamageNo],[DamageNo]) > >Replace DamageNumbers.DamageNo With DamageNo.DamageNo > >With This.Parent > .DamageNoCombo.Value = DamageNumbers.DamageId > .DamageNoCombo.DisplayValue = DamageNumbers.DamageNo > .DamageNoCombo.Refresh >Endwith >>