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

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

这是压缩包

那怎么修改代码呢？

感谢
解决问题了


您看我的注解对吗？
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