您所在位置：主题：请各位老师指教，此段代码错在哪，如何改正，谢谢！
zhaoziang
[专家分：0] 发布于 2009-12-12 00:14:00
在command中的click中代码如下：
table_name=getfile('dbf','数据表')
if empt(table_name)
retu
endif
thisform.caption = table_name
n1 = rat('\',table_name)
n2 = rat('.DBF',upper(table_name))
tabname = subs(table_name,n1+1,n2-n1-1)
if !used(tabname)
use &table_name in 0
endif
sele(tabname)
APPEND BLANK
*thisform.load
thisform.VfpGrid.init
thisform.refresh
retu
在VfpGrid中的init中的代码如下：
this.columncount = -1
if empt(tabname)
retu
endif
this.recordsource = tabname
for i = 1 to fcount(tabname)
cString_i = alltrim(str(i))
this.column&cString_i..header1.alignment = 2
endfor
以上代码在编译时不出错，制作成安装程序后，安装到原开发路径下运行正常无错误，但是变路径安装运行就提示：代码错误、找不到别名tabname所代表的表、找不到变量i这几个错误，出错代码应该是这段：
this.columncount = -1
if empt(tabname)
retu
endif
this.recordsource = tabname
for i = 1 to fcount(tabname)
cString_i = alltrim(str(i))
this.column&cString_i..header1.alignment = 2
endfor
请各位老师指教，此问题该如何解决，如何改正，谢谢！
table_name=getfile('dbf','数据表')
if empt(table_name)
retu
endif
thisform.caption = table_name
n1 = rat('\',table_name)
n2 = rat('.DBF',upper(table_name))
tabname = subs(table_name,n1+1,n2-n1-1)
if !used(tabname)
use &table_name in 0
endif
sele(tabname)
APPEND BLANK
*thisform.load
thisform.VfpGrid.init
thisform.refresh
retu
在VfpGrid中的init中的代码如下：
this.columncount = -1
if empt(tabname)
retu
endif
this.recordsource = tabname
for i = 1 to fcount(tabname)
cString_i = alltrim(str(i))
this.column&cString_i..header1.alignment = 2
endfor
以上代码在编译时不出错，制作成安装程序后，安装到原开发路径下运行正常无错误，但是变路径安装运行就提示：代码错误、找不到别名tabname所代表的表、找不到变量i这几个错误，出错代码应该是这段：
this.columncount = -1
if empt(tabname)
retu
endif
this.recordsource = tabname
for i = 1 to fcount(tabname)
cString_i = alltrim(str(i))
this.column&cString_i..header1.alignment = 2
endfor
请各位老师指教，此问题该如何解决，如何改正，谢谢！
