>>>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