FiveTech Software tech support forums

... without necessarily scrolling the dbf table
Are there any functions among all index functions that permits to me to obtain the record number passing the key value? Only reading cdx files?
I ask this because from my tests the DO WHILE !EOF() SKIP ENDDO loop is very very slow if the table is ...

Hello Roberto,

Thank you. In your case, if I understand the code correctly, you would have a PHP endpoint that receives the response and then calls an executable with parameter passing.

I will run a test to see how fast the execution is here.

Best regards,
Otto

Hi Otto,
my simple solution is to call the fivewin.exe from php simply passing the parameters I receive from Apache server.
The environment is a Windows VPS server with Apache + Php installed but I think it would run on Linux also
this is a very simplified code for index.php just to send the idea ...

... Reduced Training Effort : Less training and education required, saving costs.

Simplified Variable and Parameter Management :Less Variable Passing: By dividing the code into logical units, the need to pass variables and parameters back and forth is often eliminated, making the code clearer ...

I tried to pass nIndex in the for next loop to bchange and the value is always the same

We need to keep in mind at all times, NOT to use loop variables in building code-blocks inside a loop.
Build the code-block in a separate function using the loop variable as one of the parameters of the ...

I tried to pass nIndex in the for next loop to bchange and the value is always the same

We need to keep in mind at all times, NOT to use loop variables in building code-blocks inside a loop.
Build the code-block in a separate function using the loop variable as one of the parameters of the ...

I use tdatabase and I have modify

if Empty( cFilter )
oDbf:Clearfilter()
else
odbf:dbsetfilter( cFilter)
endif


But Not work
It should be simple to change and make it work.
I made these 6 minor changes and it works well.
#include "fivewin.ch"

REQUEST DBFCDX

function Main()

local oDlg ...

Mr Silvio

The main question was about creating controls in for/next loop.
That is answered satisfactorily.

You can take care of the rest yourself

Nages

the main question was not about creating controls in for/next loop but to passa a value to bchange function

I tried to pass nIndex in the ...

Mr Silvio

The main question was about creating controls in for/next loop.
That is answered satisfactorily.

You can take care of the rest yourself

The problem of creating controls using loop variables in a loop is well known and was discussed many times in this forum.
The solution is to create each control in a separate function using the principle of detached locals.
Search for detached locals in this forum.
The sample provided by Mr ...

This is a interesting sample for filtering....

Mr. Rao,

Would you please be so kind to enhance this sample so that there is a second combobox selecting ages like (20 - 40 - 50 etc)
and state like (NY, WY etc) Any small sample with more combo's will de ok. Please use the array's as data because I ...

Mr. paquitohm
Trying to define control this way inside a codeblock will result "variable out of reach" compilation error.


Hi to all,

That's right, mr. nageswaragunupudi
IMHO something is wrong in harbor codeblocks because SI should function at least as a LOCAL variable.

The problem is in the ...

The problem of creating controls using loop variables in a loop is well known and was discussed many times in this forum.
The solution is to create each control in a separate function using the principle of detached locals.
Search for detached locals in this forum.
The sample provided by Mr. Antonio ...

Mr. paquitohm
Trying to define control this way inside a codeblock will result "variable out of reach" compilation error.

For n= 1 to len(aFilters)

b:= {|n|
@ nRow, nCol CHECKBOX aCheck[n] VAR aFilters[n][1] ;
PROMPT aFilters[n][2] OF oBox[1] SIZE 150,15 PIXEL;
ON CHANGE Filtrare( n, oBrw, oDbf,oBox )
}
Eval(b, n)

aCheck[n]:lTransparent:=.t.
ncol+=160
if n=3
exit
endif
Next




Compiling 'test.prg ...