Hey all,
I'm experiencing some strange things with the mouseptr
function (it's probably only strange to me because I
probably don't know how it really works). At the
beginning of this function I set the mouse pointer
to 11 (busy) and at the end I set it back to 0
(default). What's weird is that it goes back to 0
(default) before the loop is done. Any ideas?
This function get's called from the CALLBACK function
of a DDT button. Thanks again for all your help!
Regards,
Scott
ps. I XXX'd out all the SQLTools commands since I'm not
sure if I'm allowed to post them.
[This message has been edited by Scott Wolfington (edited July 30, 2000).]
I'm experiencing some strange things with the mouseptr
function (it's probably only strange to me because I
probably don't know how it really works). At the
beginning of this function I set the mouse pointer
to 11 (busy) and at the end I set it back to 0
(default). What's weird is that it goes back to 0
(default) before the loop is done. Any ideas?
This function get's called from the CALLBACK function
of a DDT button. Thanks again for all your help!
Regards,
Scott
ps. I XXX'd out all the SQLTools commands since I'm not
sure if I'm allowed to post them.
Code:
FUNCTION MainAction(BYREF pUserChoices AS UserChoices) AS LONG LOCAL sSql AS STRING LOCAL x AS LONG LOCAL lStmtNumber AS LONG LOCAL sResult AS STRING MOUSEPTR 11 'Let's create our SQL strings. sSql$ = BuildSqlStatement(pUserChoices) '############################################################# '# Let's open the table and start looping through. # '############################################################# lStmtNumber& = SQL_XXXXXXX(1) 'Let's open our resultset. SQL_XXXXXXXX 1, lStmtNumber&, %IMMEDIATE, sSql$ 'Now let's loop through the resultset. DO SQL_XXXXXXXX 1, lStmtNumber&, %XXXX_ROW IF SQL_XXXXXXX(1, lStmtNumber&) THEN EXIT LOOP 'Do some stuff right here... x=x+1 'Let's display some output. IF x MOD 100 = 0 THEN CONTROL SET TEXT hPage5Dlg&, %frmMain_lblRecordCount, STR$(x) DIALOG DOEVENTS END IF SLEEP(0) LOOP CONTROL SET TEXT hPage5Dlg&, %frmMain_lblRecordCount, STR$(x) MOUSEPTR 0 'Close the SQL Resultset. SQL_XXXXXXXX 1, lStmtNumber& MainAction = 0 END FUNCTION
[This message has been edited by Scott Wolfington (edited July 30, 2000).]
Comment