回到当前运行程序所在目录
返回当前运行程序所在目录
PUBLIC LCSys16,LCNowpath
LCSys16=SYS(16) &&获取当前程序所在的全路径，包括当前运行程序名。
LCNowpath=LEFT(LCsys16,RAT("\",LCSys16,1)) &&获取当前运行程序所在工作目录。
messagebox(LCNowpath) &&程序文件所在的当前路径
============================
这是版主几年前发的。
测试结果： 返回了
procedure form1.list1.dblclick e:\...............
我只需要e:\.........
------解决思路----------------------
编译成 EXE 后你再试
MessageBox(Addbs(Justpath(Sys(16,1))))
------解决思路----------------------
楼主可能在设计时在表单调用Sys(16,1)，或者可以考虑一下用 ASTACKINFO()。
------解决思路----------------------
用错了控件方法，数据源内容改变后，刷新应该用 requery，而不是 refresh
PUBLIC LCSys16,LCNowpath
LCSys16=SYS(16) &&获取当前程序所在的全路径，包括当前运行程序名。
LCNowpath=LEFT(LCsys16,RAT("\",LCSys16,1)) &&获取当前运行程序所在工作目录。
messagebox(LCNowpath) &&程序文件所在的当前路径
============================
这是版主几年前发的。
测试结果： 返回了
procedure form1.list1.dblclick e:\...............
我只需要e:\.........
------解决思路----------------------
编译成 EXE 后你再试
MessageBox(Addbs(Justpath(Sys(16,1))))
------解决思路----------------------
楼主可能在设计时在表单调用Sys(16,1)，或者可以考虑一下用 ASTACKINFO()。
------解决思路----------------------
用错了控件方法，数据源内容改变后，刷新应该用 requery，而不是 refresh