标题:CREATE CURSOR XMDA (&CZDM) ,提示语法错误,此问题如何解决?
取消只看楼主
yjc9894301
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2011-3-25
结帖率:88.89%
已结贴  问题点数:13 回复次数:4 
CREATE CURSOR XMDA (&CZDM) ,提示语法错误,此问题如何解决?
在借用“@老想你了” 程序代码中,当运行至CREATE CURSOR XMDA (&CZDM) 时,提示语法错误,此问题如何解决?
搜索更多相关主题的帖子: CREATE CURSOR 提示 语法错误 运行 
2019-01-18 11:08
yjc9894301
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2011-3-25
得分:0 
以下是引用stda老师的将“2010版本excel表格如何导入到vf中”代码

EOLE=CREATEOBJECT('EXCEL.APPLICATION')
LCFILENAME=GETFILE([XLS]) && 此处 XLS 改为EXCEL2010文件的扩展名
IF EMPTY(LCFILENAME)  
 RETURN
ENDIF
EOLE.WORKBOOKS.OPEN(LCFILENAME)
EOLE.WORKSHEETS(1).ACTIVATE
LNROW=EOLE.SHEETS(1).USEDRANGE.ROWS.COUNT
LNCOL=EOLE.SHEETS(1).USEDRANGE.COLUMNS.COUNT
DIMENSION LAXLS(LNROW,LNCOL),FIELDNAME(LNCOL) && laxls 存贮工作表中的数据,FIELDNAME存贮列标题名
FOR lnI=1 TO LNCOL
    FIELDNAME[lnI]=EOLE.SHEETS(1).CELLS(1,lnI).VALUE && 获取列标题名
ENDFOR
LAXLS = EOLE.ACTIVESHEET.USEDRANGE.VALUE
EOLE.QUIT
RELEASE EOLE
 CZDM=[]FOR lnI=1 TO LNCOL
    CZDM=CZDM+FIELDNAME[lnI]+[ V(200)]+IIF(lnI<LNCOL,[,],[])
ENDFOR
CREATE CURSOR XMDA (&CZDM)
CREATE CURSOR TEMP (&CZDM)
INSERT INTO TEMP FROM ARRAY LAXLS
INSERT INTO XMDA SELECT * FROM TEMP WHERE RECNO()>1
SELECT XMDA
BROWSE

[此贴子已经被作者于2019-1-19 19:37编辑过]

2019-01-19 19:17
yjc9894301
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2011-3-25
得分:0 
回复sdta 老师:昨晚在粘贴代码时,误把代码行“CZDM=[]”和“FOR lnI=1 TO LNCOL ”弄成一行了.
我多次测试,使用2楼的方法  CREATE CURSOR XMDA (姓名 C(10),性别 C(4),年龄 I) 可顺利通过,
但用 CREATE CURSOR XMDA (&CZDM) 则提示“语法错误”,是否是宏替换  &CZDM  出现问题了?
使用 win7+vfp9  和 xp+vfp9  都提示同样的信息。


2019-01-20 12:27
yjc9894301
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2011-3-25
得分:0 
对于引用stda老师的这段代码,老早测试出现过提示语法错误,我就改用Import From语句,实现批量将excel文件倒入到dbf表中。近来又试着对该代码进行测试,问题依旧,提出与大家共同讨论。折腾了几天,在大家的帮助下,思路又有开阔,关于提示语法错误问题已得到解决,谢谢大家帮助.
2019-01-21 12:21
yjc9894301
Rank: 1
等 级:新手上路
帖 子:36
专家分:0
注 册:2011-3-25
得分:0 
对于引用stda老师的这段代码,老早测试出现过提示语法错误,我就改用Import From语句,实现批量将excel文件倒入到dbf表中。近来又试着对该代码进行测试,问题依旧,提出与大家共同讨论。折腾了几天,在大家的帮助下,思路又有开阔,关于提示语法错误问题已得到解决,谢谢大家帮助.
2019-01-21 12:26



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-492741-1-1.html




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

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