*--开发系统主程序
        CLEAR ALL
        CLOSE DATAB ALL
        LOCAL LCSYS16, LCPROGRAM
        PUBLIC KFPATH ,PPATH
        SET SYSMENU OFF
        SET CENTURY ON
        SET EXACT ON
        APPLICATION.VISIBLE = .F.
        ********************************
        DECLARE INTEGER GetSystemMetrics IN win32api AS Get_sysc INTEGER
         X = GET_SYSC(0)
         Y = GET_SYSC(1)
         IF X <> 1024 .OR. Y <> 768
         IF MESSAGEBOX('本程序运行的最佳显示分辨率为1024*768,' + CHR(13) + CHR(13) +  ;
        '您是否决定自动将分辨率更改为1024*768?',292,'提示信息') =  ;
        6
         DECLARE INTEGER Fblz IN 'dll\fBL.dll' INTEGER , INTEGER
         X = 1024
         Y = 768
         XX = FBLZ(X,Y)
         CLEAR DLLS
         ENDIF
         ENDIF
        
        *********************************
        LCSYS16 = SYS(16)   &&&&&程序所在目录包括程序名
        LCPROGRAM = SUBSTR(LCSYS16, AT(":", LCSYS16) - 1)
        KFPATH=LEFT(LCPROGRAM, RAT("\", LCPROGRAM))
        PPATH=LEFT(LCPROGRAM, RAT("\", LCPROGRAM)-1)
        CD LEFT(LCPROGRAM, RAT("\", LCPROGRAM))    &&&&&
        SET DEFAULT TO LEFT(LCPROGRAM, RAT("\", LCPROGRAM))
         set path to REPORT,bin,dtdbf,dbf,bmp,jtsjk

[此贴子已经被作者于2019-2-14 09:08编辑过]

*********************************
        LCSYS16 = SYS(16)   &&&&&程序所在目录包括程序名
        LCPROGRAM = SUBSTR(LCSYS16, AT(":", LCSYS16) - 1)
        KFPATH=LEFT(LCPROGRAM, RAT("\", LCPROGRAM))
        PPATH=LEFT(LCPROGRAM, RAT("\", LCPROGRAM)-1)
        CD LEFT(LCPROGRAM, RAT("\", LCPROGRAM))    &&&&&
        SET DEFAULT TO LEFT(LCPROGRAM, RAT("\", LCPROGRAM))
         set path to REPORT,bin,dtdbf,dbf,bmp,jtsjk
        *******************************************************
运行后找不到明确的路径

请大神解决一下！

逐步输出上面的值，观察一下，就知道问题了、

用astack（）直接取,set defaut to xxx

*--开发系统主程序
        CLEAR ALL
        CLOSE DATAB ALL
        LOCAL LCSYS16, LCPROGRAM
        PUBLIC KFPATH ,PPATH
        SET SYSMENU OFF
        SET CENTURY ON
        SET EXACT ON
        APPLICATION.VISIBLE = .F.
        ********************************
        DECLARE INTEGER GetSystemMetrics IN win32api AS Get_sysc INTEGER
         X = GET_SYSC(0)
         Y = GET_SYSC(1)
         IF X <> 1024 .OR. Y <> 768
         IF MESSAGEBOX('本程序运行的最佳显示分辨率为1024*768,' + CHR(13) + CHR(13) +  ;
        '您是否决定自动将分辨率更改为1024*768?',292,'提示信息') =  ;
        6
         DECLARE INTEGER Fblz IN 'dll\fBL.dll' INTEGER , INTEGER
         X = 1024
         Y = 768
         XX = FBLZ(X,Y)
         CLEAR DLLS
         ENDIF
         ENDIF
        
        *********************************
        LCSYS16 = SYS(16)   &&&&&程序所在目录包括程序名
        LCPROGRAM = SUBSTR(LCSYS16, AT(":", LCSYS16) - 1)
        KFPATH=LEFT(LCPROGRAM, RAT("\", LCPROGRAM))
        PPATH=LEFT(LCPROGRAM, RAT("\", LCPROGRAM)-1)
        CD LEFT(LCPROGRAM, RAT("\", LCPROGRAM))    &&&&&
        SET DEFAULT TO LEFT(LCPROGRAM, RAT("\", LCPROGRAM))
         set path to REPORT,bin,dtdbf,dbf,bmp,jtsjk

**********************************************************************
这个主程序在XP环境正常，在win7环境下每次找不到数据库的数据

用ASTACKINFO()试试，例如：
ASTACKINFO(aSI)
? aSI[2]
SET DEFAULT TO ADDBS(JUSTPATH(aSI[2]))

SET DEFAULT TO JUSTPATH(SYS(16))

问题似乎不是出在这里。路径与文件名中是否有空格？
如果有，查找文件命令很容易出错。在引用文件名时，可以用双引号将完整文件名括起来。
列出路径为_cpaht,文件名为_fnm,则引用时不能用，
_pcath+_fnm,而应该用， '"'+_pcath+_fnm'"'
试试?

复杂了，楼主最最好上传出东东，让有空的朋友诊断。