Página 1 de 1

TBrowse:InsCol() bug ?

Publicado: Jue Jul 19, 2007 3:51 pm
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