assigned value is wrong class
José M. C. Quintas
--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/b350b578-3a2c-4c48-9bcb-3571d69b9f7fn%40googlegroups.com.
I use ADO, and I think there is no matter about network.
I use some speed up on browse, updating on idle time, and full
update before user function.
oBrowse:RefreshCurrent()
DO WHILE nKey == 0 .AND. ! oBrowse:Stable
oBrowse:Stabilize()
nKey := Inkey()
ENDDO
oBrowse:RefreshCurrent()
Atail( AppForms() ):UpdateScroll( cnSQL:RecordCount(),
cnSQL:AbsolutePosition() )
IF nKey == 0
DO WHILE ! oBrowse:Stabilize()
ENDDO
IF ! Empty( oBrowse:Freeze )
oBrowse:ColorRect( { oBrowse:RowPos, 1,
oBrowse:RowPos, oBrowse:Freeze }, { 3, 3 } )
ENDIF
oBrowse:ColorRect( { oBrowse:RowPos, oBrowse:LeftVisible,
oBrowse:RowPos, oBrowse:RightVisible }, { 3, 3 } )
oBrowse:ColorRect( { oBrowse:RowPos, oBrowse:ColPos,
oBrowse:RowPos, oBrowse:ColPos }, { 2, 2 } )
Atail( AppForms() ):UpdateScroll( cnSQL:RecordCount(),
cnSQL:AbsolutePosition() )
cTimeLimit := TimeAdd( Time(), "M", 10 )
nKey := Inkey( INKEY_IDLE, HB_INKEY_ALL - INKEY_MOVE +
HB_INKEY_GTEVENT )
IF nKey == 0 .AND. Time() > cTimeLimit
KEYBOARD Chr( K_ESC )
LOOP
ENDIF
ENDIF
José M. C. Quintas
--
--
You received this message because you are subscribed to the Google
Groups "Harbour Users" group.
Unsubscribe: harbour-user...@googlegroups.com
Web: http://groups.google.com/group/harbour-users
---
You received this message because you are subscribed to the Google Groups "Harbour Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-user...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-users/5965385b-b1a1-4121-aeec-ecd34fc5fa30n%40googlegroups.com.