Question

如何打开存储在当前目录中的表单

do form ADDBS( JUSTPATH(SYS(16,0))) +"\form5.scx" WITH thisform.grid1.Column1.Text1.Value TO aa

我试过这个，但说该文件不存在

Answer 1

do form form5 with ...

VFP使用相对路径和搜索路径。如果它在当前目录中，那么将是VFP选择的第一个。

Answer 2

ADDBS（JUSTPATH（SYS（16,0）））这会在路径中添加一个斜杠（＆＃34; \＆＃34;），然后使用＆＃34; \ form5.scx＆＃34;添加另一个斜杠。可以做形成ADDBS（JUSTPATH（SYS（16,0）））+＆＃34; form5.scx＆＃34;

或使用相对路径或locfile（）函数

Answer 3

测试我所说的复制此代码并执行它：你可以看到有2个“\” addbs（）仅适用于它不应用于路径的第二个独立术语的内容。

local m.myvar
text to m.myvar noshow
messagebox(ADDBS( JUSTPATH(SYS(16,0))) +"\form5.scx")
_cliptext=ADDBS( JUSTPATH(SYS(16,0))) +"\form5.scx"
endtext

STRTOFILE（m.myvar “TEST.PRG”）

做测试

从当前目录打开一个表单

3 个答案: