FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour DIALOGO NOMODAL
Posts: 1078
Joined: Thu Sep 27, 2007 03:47 PM
DIALOGO NOMODAL
Posted: Thu Nov 17, 2011 09:54 PM
Saludos al Forum , alquien le ha funcionado Dialogos tipos NOMODAL con ADO, porque no me funciona , es mas lo manejo con CLases , pero parece que se pierde las Variables, El dialogo Normal si funciona.

Me genera el error es estas lineas oApp:oQSet[oApp]:RecordCount()

Code (fw): Select all Collapse
    elseif ::aContl[3] $"P0-S0-Q0-U0-F0-B0-E0-M0" 
      if oApp:oQSet[oApp:nQSet]:RecordCount() == 0 
      else
       if ::aContl[3] ="P0"   //primero
         if !oApp:x_tfado; DbGoTop();else;oApp:oQSet[oApp:nQSet]:MoveFirst();endif 
          ::LOAD()  
       elseif ::aContl[3] ="S0" 
         if !::aContl[20];DbSkip(+1)
            If EoF();MsgBeep();DbGoBottom();endif
         else
          oApp:oQSet[oApp:nQSet]:MoveNext()
          If oApp:oQSet[oApp:nQSet]:EoF();MsgBeep();oApp:oQSet[oApp:nQSet]:MoveLast();endif  
         endif 
          ::LOAD()


http://imageshack.us/photo/my-images/7/dibujoyr.jpg/
" rel="noopener">
http://imageshack.us/photo/my-images/7/dibujoyr.jpg/
Ruben Dario Gonzalez
Cali-Colombia
rubendariogd@hotmail.com - rubendariogd@gmail.com

Continue the discussion