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