如下代码中刷红绝对地址的写法，能不能改成相对地址比如&&后的写法。


*根据运动员号码查询比赛成绩
ydybm=ALLTRIM(thisform.text1.Value)                           &&待查询运动员号码
*判断运动员号码是否存在
SELECT COUNT(*) FROM e:\学习\运动会管理系统\data\运动员 WHERE 运动员号码==ydybm INTO ARRAY shu
IF shu=0                                                      &&不存在该编号
   MESSAGEBOX(ydybm+"号码不存在！",0+48,"提示")
   RETURN                                                     &&结束查询
ELSE
   *查询姓名、性别、单位名称
   SELECT 姓名,性别,单位名称;
   FROM e:\学习\运动会管理系统\data\运动员,;                  &&data\运动员
   e:\学习\运动会管理系统\data\参赛单位;                      &&data\参赛单位
   WHERE 运动员.单位编码=参赛单位.单位编码 AND 运动员号码==ydybm INTO ARRAY xm
   *在文本框中显示姓名、性别、单位名称
   thisform.txtXM.Value=xm(1)
   thisform.txtXB.Value=xm(2)
   thisform.txtDW.Value=xm(3)
   *查询该运动员的参赛项目、名次、得分
   SELECT 项目名称,名次,得分;
   FROM e:\学习\运动会管理系统\data\运动项目,;               &&绝对地址e:\学习\运动会管理系统\data\运动项目
   e:\学习\运动会管理系统\data\个人得分;                    &&绝对地址e:\学习\运动会管理系统\data\个人得分
   WHERE 运动项目.项目编码=个人得分.项目编码 AND 运动员号码==ydybm INTO CURSOR grxx
   *设置表格数据源显示该运动员的参赛项目、名次、得分
   thisform.grid1.RecordSource="grxx"
ENDIF

请你自己试一下不就知道了吗？

  PUBLIC mypath
  cCurrentProcedure = SYS(16,1)
  nPathStart = AT(":",cCurrentProcedure)- 1
  nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
  mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
  SET DEFAULT TO (mypath)

***核心主程序位置
PUBLIC mypath
mypath=sys(5)+sys(2003)+"\"

我试了不行啊！有什么办法可以不用绝对地址，绝对地址应该会在文件整体搬家后影响使用吧！

用别名

PUBLIC mypath
mypath=sys(5)+sys(2003)+"\"
你好 你这个全局变量名mypath有特定含义吗？

用相对路径可以
示例：

cDefaultPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefaultPath)
cDir = cDefaultPath + "data"
MD (cDir)
cDBF = cDefaultPath + "data\tmp.dbf"
CREATE TABLE (cDBF) (f1 I) 
INSERT INTO tmp VALUES (1)
INSERT INTO tmp VALUES (2)
INSERT INTO tmp VALUES (3)
USE
SELECT * FROM data\tmp
CLOSE DATABASES ALL 
DELETE FILE (cDBF)
RD (cDir)

PUBLIC mypath
  cCurrentProcedure = SYS(16,1)
  nPathStart = AT(":",cCurrentProcedure)- 1
  nLenOfPath = RAT("\", cCurrentProcedure) - (nPathStart)
  mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
  SET DEFAULT TO (mypath)
你好 你这个代码改成这样有什么区别？
PUBLIC mypath
  cCurrentProcedure = SYS(16,1)
  nPathStart = 1
  nLenOfPath = RAT("\", cCurrentProcedure) - 1
  mypath=SUBSTR(cCurrentProcedure, nPathStart, nLenofPath)
  SET DEFAULT TO (mypath)
或者这样
PUBLIC mypath
  cCurrentProcedure = SYS(16,1)
  nLenOfPath = RAT("\", cCurrentProcedure) - 1
  mypath=SUBSTR(cCurrentProcedure,1， nLenofPath)
  SET DEFAULT TO (mypath)

[此贴子已经被作者于2020-10-29 11:04编辑过]

cDefaultPath = ADDBS(JUSTPATH(SYS(16)))
SET DEFAULT TO (cDefaultPath)
cDir = cDefaultPath + "data"
MD (cDir)
cDBF = cDefaultPath + "data\tmp.dbf"
CREATE TABLE (cDBF) (f1 I)
INSERT INTO tmp VALUES (1)
INSERT INTO tmp VALUES (2)
INSERT INTO tmp VALUES (3)
USE
SELECT * FROM data\tmp
CLOSE DATABASES ALL
DELETE FILE (cDBF)
RD (cDir)
你这个中第一行这样写有什么区别？cDefaultPath = ADDBS(JUSTPATH(SYS(16，1)))