Newsgroup: it.comp.lang.vo-clipper
Titolo: bBrowse Nonvuole più funzionare

Ciao a tutti
Sto utilizzando il metodo, sotto descritto, in VO per popolare un controllo 
bBrowse ma mi dà sempre il seguente errore
***********************ERROR********************************
Visual Objects (Version 2.7. Build 2.2735), Version 2.7b
23-03-2006 23:35:37
Application: D:\GestSMS\EasySMS.DBG
Error message:
--------------
Error Code:  1 [ ARGUMENT ERROR ]
Subsystem: Database
Function: SETTYPE
Argument: uType
Description: uType invalid or missing
CallStack:
ALUNNOCLASSE:POSTINIT (Line: 55)
ALUNNOCLASSE:INIT (Line: 82)
APP:START (Line: 32)
START (Line: 8)
Error Object created:
--------------------
SubSystem       :Database
SubCode         :0
GenCode         :Argument error
OsCode          :0
ArgType         :NIL
FuncPtr         :0x00000000
ArgNum          :0
FuncSym         :SETTYPE
Severity        :2
CanDefault      :.F.
CanRetry        :.F.
CanSubstitute   :.F.
Operation       :
Description     :uType invalid or missing
FileName        :
Tries           :0
FileHandle      :0
SubCodeText     :
Arg             :uType
ArgTypeReq      :NIL
MaxSize         :0
SubstituteType  :NIL
CallFuncSym     :SETTYPE
--------------------
METHOD PostInit(oWindow,iCtlID,oServer,uExtra) CLASS AlunnoClasse
 LOCAL aCaption   AS ARRAY
 LOCAL oColonna   AS bDataColumn
 LOCAL oFont     AS Font
 LOCAL oViewStyle  AS bViewStyle
 LOCAL oImage    AS bIcon
 LOCAL cSelect    AS STRING
 LOCAL iRecTro    AS DWORD
 LOCAL aStruct    AS ARRAY
 LOCAL i       AS WORD
  SELF:oDCbAlunni:Editable := TRUE
  SELF:oDCbAlunni:EnableCaptionClick(TRUE)
  SELF:oDCbAlunni:EnableRowResize(FALSE)
  SELF:oDCbAlunni:Freeze := 1
  SELF:oDCbAlunni:ViewLogicAs := #Checkbox
  SELF:oDCbAlunni:FooterHeight := 20
 cSelect := [SELECT  alunni.cognome, alunni.nome, alunni.codfis, 
alunni.sesso, alunni.id_alunno, ] + ;
                 [classi.id_classe, classi.corso, classi.classe ] + ;
                 [FROM alunni ] + ;
                 [LEFT JOIN alu_classe ON (alunni.id_alunno = 
alu_classe.id_alunno) ] + ;
                 [LEFT JOIN classi ON (alu_classe.id_classe = 
classi.id_classe) ] + ;
                 [WHERE classi.id_classe IS NULL]
  SELF:oSelect := SQLSelect{cSelect, oConneLoc}
  iRecTro := SELF:oSelect:RecCount
  IF iRecTro > 0
  aStruct := SELF:oSelect:DBStruct
  AAdd(aStruct, {NIL, NIL, NIL, NIL})
  AIns(aStruct, 1)
  ArrayPut(aStruct, 1, {"select", "L", 1, 0})
   SELF:oasServer := bArrayServer{aStruct,, BINACTIVE, BDATAFORMAT_NORMAL}
   DO WHILE !SELF:oSelect:EOF                   && Popola l'ArrayServer con 
i risultati della query
       IF SELF:oasServer:Append()
            FOR i := 1 UPTO SELF:oSelect:FCount
                 SELF:oasServer:FIELDPUT(i + 1 , SELF:oSelect:FIELDGET(i))
           NEXT
           SELF:oSelect:Skip()
        ENDIF
   ENDDO
   SELF:oasServer:Commit()
  SELF:oDCbAlunni:Use(SELF:oasServer, ;
            {#select, #cognome, #nome, #codfis, #sesso, #corso, #classe, 
#id_alunno, #id_classe}, ;
            {#select, #cognome, #nome, #codfis, #sesso, #corso, #classe})
  oColonna := SELF:oDCbAlunni:GetColumn(1)
  oImage  := bIcon{ICONQUESTIONMARK, Dimension{16, 16}}
  oColonna:Caption   := oImage
  oColonna:Editable  := TRUE
  oColonna:Alignment  := BALIGN_CENTER
  oFont := Font{,8,"Microsoft Sans Serif"}
  oFont:Bold := TRUE
  oViewStyle := bViewStyle{,,,oFont}
  aCaption := {[Cognome], [Nome], [Codice fiscale], [M/F], [Corso], 
[Classe]}
  FOR i := 2 UPTO Len(SELF:oDCbAlunni:ColumnOpenList)
   oColonna := SELF:oDCbAlunni:GetColumn(i)
   oColonna:Editable  := FALSE
   oColonna:Caption := aCaption[i]
   oColonna:CaptionView := oViewStyle
  NEXT
  AdattaLargBrow(SELF, oDCbAlunni, 1)
  SELF:oDCCerca:SetCueBanner("Cognome o nome")
  ENDIF
RETURN NIL
Dove sbaglio?
Ciao a tutti Claudio Carletta 

 ha scritto nel messaggio
news:442327c6$0$29721$4faf...@reader2.news.tin.it...


 ha scritto nel messaggio 
news:4423ae16$0$29731$4faf...@reader2.news.tin.it...


Il Fri, 24 Mar 2006 18:05:59 +0100, Claudio Carletta ha scritto:
controlla che i campi del bArrayServer siano effettivamente riempiti con
dei valori.
potresti andare per esclusione iniziando a passare al bBrowser i campi che
devi gestire uno ad uno per vedere poi dove si pianta.

-- 
Ciao
Stefano

 ha scritto nel messaggio 
news:147mslu928bxf.1...@40tude.net...
