In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

TBrowse:InsCol() bug ?

Xailer professional forum in English
Gejza Horvath
Mensajes: 281
Registrado: Mar Ago 15, 2006 1:50 pm

TBrowse:InsCol() bug ?

Mensaje por Gejza Horvath »

Hi,
I think, it's a problem in InsCol method of Tbrowse class. Here is my code:
WITH OBJECT TDBBrwColumn():New(::oDBBrowseStrojMat )
:cHeader := "NAZOV"
:nWidth := 120
:oDataField := ::oDbfMaterial2:aFields[2]
:Create()
::oDBBrowseStrojMat:InsCol(3,HB_QWith(),.T.)
END
The code works fine, but terminating the App, I get an error:
******************************* Error log file ********************************
Date: 07/19/07
Time: 15:46:29
Available Memory: 163796
Current Area: 8
---------------------------- Compiler Information -----------------------------
Xailer Version: Xailer 1.5.6 Version 1.5
Compiler: xHarbour build 0.99.61 Intl. (SimpLex) PCode Version: 7
C/C++ Compiler: Borland C++ 5.5.1
Windows Platform: Windows XP Professional 5.01.2600 Service Pack 2
--------------------- Internal Error Handling Information ---------------------
Subsystem Call: BASE
System Code: 1004
Default Status: .F.
Description: Class: 'NIL' has no exported method
Operation: HANDLE
Arguments:
Involved File:
Dos Error Code: 0
Trace Through:
TDBBRWCOLUMN:_ODATAFIELD (920)
TDBBRWCOLUMN:FREE (278)
TDBBRWCOLUMN:DESTROY (78)
TDBBRWCOLUMN:END (89)
(b)TDBBROWSE:RESET (3132)
AEVAL (0)
TDBBROWSE:RESET (3132)
TDBBROWSE:SETDATASET (404)
TDBBROWSE:FREE (115)
TDBBROWSE:WMNCDESTROY (918)
RUNFORM (0)
TAPPLICATION:RUN (209)
MAIN (15)
======================================
I changed the code using AddCol():
::oDBBrowseStrojMat:AddCol(HB_QWith(),.T.)
::oDBBrowseStrojMat:SwapCols(3,6)
everything is O.K, no error messages.
Gejza Horváth
Responder