| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 809 人关注过本帖
标题:这段代码错在哪里了,各位帮帮忙!
只看楼主 加入收藏
cmy2006
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2013-2-28
结帖率:100%
收藏
已结贴  问题点数:20 回复次数:23 
这段代码错在哪里了,各位帮帮忙!
程序代码:
set safety off
public mypath
mypath=""
mypath=getfile("xls")
if len(alltrim(mypath))=0
  messagebox("你未选择任何表文件!",48,"提示")

 ELSE
  Import From (mypath) Type xls
lcTmpDbfName=Juststem(Dbf())
ac=Fcount("&lcTmpDbfName")
For m.lnI=1 To ac
  lcStr="Alter Table "+ "&lcTmpDbfName Rename Column "+Field(m.lnI)+" To "+Evaluate(Field(m.lnI))
  &lcStr.
  ENDFOR
USE bsc表 EXCLUSIVE
ZAP
APPEND FROM "&lcTmpDbfName"
GO TOP
DELETE
PACK
SELECT &mypath
DELETE FILE (mypath).DBF
    messagebox("数据导入成功!",48,"提示")

 ENDIF
怎么总是运行到ac=Fcount("&lcTmpDbfName")提示"找不到别名",请大家帮帮忙!
搜索更多相关主题的帖子: color 
2013-03-06 10:16
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
查了下 没你说的问题
2013-03-06 10:32
cmy2006
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2013-2-28
收藏
得分:0 
那是怎么回事,总是运行到ac=Fcount("&lcTmpDbfName")就告错,总是找不到别名
2013-03-06 10:36
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
以下是引用cmy2006在2013-3-6 10:36:20的发言:

那是怎么回事,总是运行到ac=Fcount("&lcTmpDbfName")就告错,总是找不到别名
没发现“总是找不到别名”
2013-03-06 10:42
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:2 
图片附件: 游客没有浏览图片的权限,请 登录注册
2013-03-06 10:44
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:18 
这是因为所取的文件名不符合别名命名规则,可以这样
把lcTmpDbfName=Juststem(Dbf())
改成
lcTmpDbfName=ALIAS()

但这不能保证你其它代码能否正常运行

2013-03-06 10:46
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
回复 6楼 kiff
这样可以
2013-03-06 10:52
cmy2006
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2013-2-28
收藏
得分:0 
这里改成了alias()是可以取到文件名,但后边的APPEND就没法运行了!
2013-03-06 11:29
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:0 
以下是引用cmy2006在2013-3-6 11:29:58的发言:

这里改成了alias()是可以取到文件名,但后边的APPEND就没法运行了!
改成这样
APPEND FROM dbf(lcTmpDbfName)
2013-03-06 11:35
kiff
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:广州
等 级:贵宾
威 望:46
帖 子:756
专家分:2531
注 册:2013-1-30
收藏
得分:0 
还有你那句
USE bsc表 EXCLUSIVE
应改成
USE bsc表 EXCLUSIVE in 0
select bsc表

这样防止打开当前的表时而关闭了别的工作区


2013-03-06 11:57
快速回复:这段代码错在哪里了,各位帮帮忙!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021307 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved