是这样
ca=Createobject("CursorAdapter")
With ca
    .Alias = 'cs'
    .Datasource=con  
    .DataSourceType = 'odbc'
    .SelectCmd = "select * from cs "  
    .KeyFieldList = 'id'  
    .Tables = "cs"
    .UpdatableFieldList = "id,姓名，性别"
    .UpdateNameList ="id cs.id,姓名 cs.姓名,性别 cs.性别"
 .CursorFill()
ENDWITH
Select cs
CursorSetProp("buffering",3)
修改数据，没有保存，测试，关掉数据sql server，然后关闭程序

参考这贴看有无帮助
https://bbs.bccn.net/viewthread.php?tid=508227&page=5#pid2757249

使用try Aerror来捕捉

请教版主代码放在主程序中吗？

想在哪开始拦截就放在哪，可以随时开启和关闭。

我放在主程序了，没拦住，之前还有一个界面，附件上传了

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
#define MY_ERROR  0x401    && 自定义消息
DECLARE long AddException IN errdbg long,string@,long,long
DECLARE long RemoveException IN errdbg
DECLARE long GetException IN errdbg long
DECLARE long strlen IN msvcrt long

Do Form 表单1.scx
Read Events
** AddException(nType, cOutFile, hWnd, uMsg) 注册异常处理
** 参数：
**   nType ..... 0->全部忽略跳过，1->提示选择中止、重试、忽略
**   cOutFile .. 输出异常信息的文件名，为空不输出
**   hWnd ...... 接收异常信息的窗口句柄，为 0 不接收
**   uMsg ...... 发送异常信息的用户自定义消息，为 0 不发送
AddException(1, cDefPath+"errinfo.txt", _screen.hWnd, MY_ERROR)
oErr = CREATEOBJECT("CError")
BINDEVENT(_screen.hWnd, MY_ERROR, oErr, "onError")
SYS(1079,1)
? 1111
fun1()
RemoveException()  && 注销异常处理
CLEAR ALL
RETURN

FUNCTION fun1()
    SYS(1079,1)
    ? 2222
    fun2()
ENDFUNC

FUNCTION fun2()
    SYS(2600,0,1," ")
    ? 3333  
ENDFUNC

DEFINE CLASS CError as Session
    PROCEDURE onError(hWnd,Msg,wParam,lParam)  && wParam指向EXCEPTION_RECORD结构的指针
        nCode = CTOBIN(SYS(2600,wParam,4),"4RS")
        pMsg = GetException(nCode)
        ? TRANSFORM(nCode,"@0"), SYS(2600,pMsg,strlen(pMsg))
        FOR i=1 TO PROGRAM(-1)-1
            ? SPACE(i),PROGRAM(i)
        ENDFOR
        **QUIT
    ENDPROC
ENDDEFINE

有点乱套
先这样试：“表单1”为顶层表单

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)

ON ERROR myError()

Do Form 表单1.scx
Read Events
RETURN

FUNCTION myError()
    MESSAGEBOX("error!!!")
ENDFUNC

如果异常弹窗显示“error!!!”就OK
否则，再试试：

cDefPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefPath)
DECLARE long AddException IN errdbg long,string@,long,long
DECLARE long RemoveException IN errdbg
AddException(0, "", 0, 0)
Do Form 表单1.scx
Read Events
RemoveException()  && 注销异常处理
CLEAR ALL
RETURN

[此贴子已经被作者于2023-8-19 14:30编辑过]

版主辛苦了
第一段代码出现


关不掉，只能到任务管理器终止进程