主程序代码是：
Set Talk Off &&关闭命令显示
Set Escape Off &&禁止运行的程序在按 Esc 键后被中断
Set Exclusive Off &&数据库表以共享方式打开
Set Deleted On &&过滤掉已带删除标记的记录
Set Safety Off &&指定在改写已有的文件时不显示对话框
Set Date Ansi &&设定日期的年份为 4 位数
Set Century On &&指定日期表达式的显示格式为YY.MM.DD SET MARK TO [-] &&指定日期的分隔符为"-"
SET SECONDS ON &&日期时间表达式的显示秒钟部分
SET HOURS TO 12 &&指定日期时间表达式的显示为12小时格式
Set Optimize ON &&启用或废止 Rushmore 优化。
 Clear &&清除主窗口
 Clear All &&清除变量

do form 小组界面.scx
read event
on shutdown do myQuit
function myQuit
    on error *
    close all
    clear all
    declare long ExitThread in win32api long
    ExitThread(0)
endfunc

哪位高手给个指导..谢谢~

最后一段
function myQuit
    on error *
    close all
    clear all
    declare long ExitThread in win32api long
    ExitThread(0)
endfunc
在里面加一句：on shutdown
即：

function myQuit
    on error 
    on shutdown
    close all
    clear all
    clear events
    quit
endfunc

[ 本帖最后由 月沐庭轩 于 2012-11-23 14:42 编辑 ]

还是没用....

把这两行取掉。
declare long ExitThread in win32api long
    ExitThread(0)

on shutdown do myQuit
放到read events上面


如果还是不行
表单的unload事件里写
clear events
quit

收到的鲜花

• tlliqi 于 2012-11-23 17:37 送鲜花  10朵   附言：加分鼓励

加这个是对的
（表单的unload事件里写
clear events
quit）

试试这样：

on shutdown do myQuit
do form 小组界面.scx
read event
function myQuit
    RELEASE ALL
　　CLEAR EVENTS
    quit
endfunc



[ 本帖最后由 qjbzjp 于 2012-11-23 16:14 编辑 ]