DO CASE
    CASE
        =MESSAGEBOX("请先选择年级",48,"提示")
        
    CASE
        USE aa.dbf
        APPEND BLANK
        replace nj WITH
        USE
ENDCASE
运行完后显示“不能访问选定表。njdm.nj”
求教大咖，加入什么代码可以完美解决

[此贴子已经被作者于2021-12-5 12:02编辑过]

上传相关文件看看

这是压缩包

可能是USE aa.dbf 时关闭了之前打开的工作区表njdm

那怎么修改代码呢？

CASE &&这时，当前表切换到了njdm
*        USE aa.dbf   &&在njdm表所在工作区打开了aa,同时关闭了njdm,改成
        use aa.dbf  in 0
        select aa
        APPEND BLANK
        replace nj WITH
        USE
        select njdm

[此贴子已经被作者于2021-12-5 12:46编辑过]

感谢
解决问题了


您看我的注解对吗？
CASE &&这时，当前表切换到了njdm
*        USE aa.dbf   &&在njdm表所在工作区打开了aa,同时关闭了njdm,改成
        use aa.dbf  in 0   &&在最低可用工作区，打开表aa
        select aa    &&指定激活包含表aa的工作区
        APPEND BLANK
        replace nj WITH
        USE
        select njdm   &&&&指定激活包含表njdm的工作区

[此贴子已经被作者于2021-12-5 13:18编辑过]

请试一试，是这样的吗？

就是酱紫。
但是我看不懂这么深奥的代码......
能解释一下最后三行代码吗？
DO CASE
    CASE
        =MESSAGEBOX("请先选择年级",48,"提示")
        
    CASE
         cstr =       ？
        INSERT INTO aa(Nj) values(ALLTRIM(cstr))  ？
ENDCASE

cb1 =
IF cb1.listindex==0
    MESSAGEBOX("请先选择年级",48,"提示")
    cb1.setfocus
    RETURN
ENDIF
INSERT INTO aa VALUES (cb1.list(cb1.listindex))

[此贴子已经被作者于2021-12-5 15:08编辑过]