Hi Mark, If the data field is null, and ImpSalePrice is numeric, you'll get an exception when it tries to do the assignment. Try assigning the function result to a variant and if you don't get an exception doing that, then use vartype to find out exactly what it's returning. If it's simply returning a null value, that just means the field hasn't been initialised so might as well make the price zero. Otherwise, it should at least give you enough info to show what's going wrong and where the real problem might be.
I also seem to remember getting exceptions from either Locate or Lookup when you gave it a string key value that was longer than the data field... Regards, Brian ----- Original Message ----- From: <[EMAIL PROTECTED]> To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]> Sent: Thursday, July 24, 2003 5:46 PM Subject: Re: [DUG]: Invalid Variant Type Conversion > Yes (so the conversion error is assigning null to a currency type, SalePrice??) > The next step was to test to see if ImpSalePrice was null. > Can I not do that? > Mark > On 23 Jul 2003 at 22:39, Moises Lopez wrote: > > > mark > > > > could it be that the SaleRefTable.Lookup somehow is returning null? > > > > cheers > > moises > > > > At 11:09 AM 7/24/2003 +1200, you wrote: > > > > >I am getting an Invalid variant type conversion in the following code: > > > > > > ImpSalePrice := SaleRefTable.Lookup( > > > 'CustCode;DestCode;PricePoint;SpeciesCode;LogGrade;LogLength', > > > VarArrayOf([pCustCode, pDestCode, pPricePoint, pSpeciesCode, pLogGrade, > > > pLogLength]), 'SalePrice'); > > > > > >I can't understand it because there is no error with the following: > > > > > > if SaleRefTable.Locate( > > > 'CustCode;DestCode;PricePoint;SpeciesCode;LogGrade;LogLength', > > > VarArrayOf([pCustCode, pDestCode, pPricePoint, pSpeciesCode, pLogGrade, > > > pLogLength]), []) then > > > > > >I have check each of the types in the array and they match those in the > > >table. Can > > >anyone point me to what is happening here? > > > > > >TIA > > > > > >Mark > > >--------------------------------------------------------------------------- > > > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] > > > Website: http://www.delphi.org.nz > > >To UnSub, send email to: [EMAIL PROTECTED] > > >with body of "unsubscribe delphi" > > >Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ > > > > > > > > >--- > > >Incoming mail is certified Virus Free. > > >Checked by AVG anti-virus system (http://www.grisoft.com). > > >Version: 6.0.495 / Virus Database: 294 - Release Date: 6/30/2003 > > > > > -------------------------------------------------------------------------- - > New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] > Website: http://www.delphi.org.nz > To UnSub, send email to: [EMAIL PROTECTED] > with body of "unsubscribe delphi" > Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/ --------------------------------------------------------------------------- New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED] Website: http://www.delphi.org.nz To UnSub, send email to: [EMAIL PROTECTED] with body of "unsubscribe delphi" Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
