开云体育

Since the program still shows up in the task list, your Foxpro code is still
doing something. It seems like you're going to have to figure out just what
that something is, then determine how to fix it. You say there's no READ
EVENTS involved, so it seems like it's either waiting for input into the
dialog box, which for some reason isn't made visible, or it's stuck in an
infinite loop during the data import routine.

This would be easy to figure out if you could reproduce the problem on your
machine, but it gets to be a PITA when it only happens on a remote site,
without the Debugger available, depending on the customer to tell you what's
going on, etc. One thing I've found invaluable in such situations is to
include a Trace method in my apps which includes code like this:

lcFile = 'DEBUG'+RIGHT(DTOS(DATE()),4)+'.TXT'
lcText = TIME(1)+' '+TRANSFORM(PROGRAM(PROGRAM(-1)-1))+' '+lcText
STRTOFILE(lcText+CR,lcFile,.T.)

lcText is passed in as a parameter

I scatter calls to this a crucial points thruout the program, trying to
include helpful notes (including variable values) in the parameter string. I
then tell the user to run it to reproduce the problem and have them send me
the resulting DEBUGxxxxx.TXT file. Typical output might look like this:

01:12:24.25 ACECODECLASS.ECHANDLER register button clicked
01:12:24.26 ACECODECLASS.REGINIT Initializing. UserID=XX0000098
Etc.

In your case, you could stick in some strategic calls like this:

Trace("Ready to starting input routine...")
...
Trace("Input file opened.")
...
Trace("Data has been imported.")
...
Trace("Ready to show dialog")
nResult = MESSAGEBOX(...) or however you do this
Trace("Done with dialog. Result="+TRANSFORM(nResult)
Etc etc....

Looking at the trace output should at least let you know what point in the
program to focus on. If it gets to "ready to show dialog" and stops, you'll
know that it's a dialog display issue. Or you may end up rethinking your
statement that the data is not an issue...




--stein

Stein Goering
Arbutus Computer Services
17494 Merry Hill Rd
Richland Center, WI 53581

608.538.3820