>If Not Used('trans1') > USE trans1.dbf Alias trans1 Again In 0 Shared >Endif > >SELECT trans1 >USE trans1 >lnValutosearch=val(thisform.text4.value)&&Function argument value, type, or count is invalid > >lnValutosearch=thisform.text4.value &&Operator/operand type mismatch > >COUNT FOR trans1.fexerno=lnValutosearch TO thisform.text2.value >WITH thisform.combo1 >thisform.text4.value=.list(.listindex,2) >thisform.text5.value=.list(.listindex,1) >ENDWITH >>
>>lnValutosearch=val(thisform.text4.value) >>COUNT FOR trans1.fexerno=lnValutosearch TO thisform.text2.value>>Or, if you use SQL which makes it easier if you later must upgrade your application to SQL server:
>>lnValutosearch=val(thisform.text4.value) >>Select fexerno from trans1 where fexerno=lnValutosearch into cursor curdummy >>thisform.text2.value=_tally>>
>>>COUNT FOR trans1.fexerno=thisform.text4.value TO thisform.text2.value
>>><\pre>
>>>thanks