HMGforum.com

srvet_claudio wrote: Not work for me in Win XP SP3 32-bit

Roberto Lopez wrote:

srvet_claudio wrote: this is not an elegant solution, but ...

File: main_query_server_action.prg

Code: Select all

#include "hmg.ch"

declare window Main

Function main_query_server_action

   aRecordset := netio_funcexec( "query_001" , Main.Query_String.Value )

Main.Grid_1.DeleteAllItems   // <-----------------------------------------------------  add this line

   Main.Grid_1.ItemCount := LEN(aRecordset)

Return Nil

Sadly, the problem remains.

My test is as follows:

First query: A (it is Ok)

Second query: B (does not work.) Grabage showns.

Don't worry about this, I'll create an alternate demo, using a standard grid, filling it with additem.

My first attempt was virtual grid, because, it could work very fast even with very large recordsets (NETIO compresses data, so, the recordest size is not a concern).

An important thing to note, is that the problem is not NETIO related, since, the GRID_03 demo is failing the same way here. It starts ok, but when start to move the vertical scroll bar the content of first column become 'X's.

OS: XP SP3 32

mol wrote: I had such a problem, when I compiled hmg with ANSI selection (besides, I'm still using ANSI).
Everything looks OK when compiled as UNICODE and used as ANSI.

Strange, but it works!

echo. Build HMG Library to support the character set:
echo. -----------------------------------------------
echo.
echo. 1 - ANSI
echo. 
echo. 2 - UNICODE
echo. 
echo. 0 - Cancel
echo. 
echo.
echo. 
set /p option=Select an Option [0, 1, 2] (for default: UNICODE): 
'if %ERRORLEVEL% NEQ 0 goto OP2 
if %option% == 1 goto OP1  
if %option% == 2 goto OP2
if %option% == 0 exit
goto MENU

srvet_claudio wrote: Very interesting, I did the same steps that you and both demos works fine for me (Win7 SP1 64-bit)

Rathinagiri wrote:IMHO, you have to reset the size of the virtual grid to 0 before doing any operation.

Kindly check up this:

Code: Select all

#include "hmg.ch"

declare window Main

Function main_query_server_action

Main.Grid_1.ItemCount := 0    // <-----------------------------------------------------  add this line
   
   Main.Grid_1.disableupdate()

   aRecordset := netio_funcexec( "query_001" , Main.Query_String.Value )

Main.Grid_1.DeleteAllItems   // <-----------------------------------------------------  add this line

   Main.Grid_1.ItemCount := LEN(aRecordset)

   Main.Grid_1.enableupdate()

Return Nil

Roberto Lopez wrote:Claudio,

I've rebuilt the apps, with unicode version and it works fine now. So, the problem is limited to ANSI version.

Thanks for your help.

mol wrote:As I wrote....
Something is wrong with ANSI compilation