| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 989 人关注过本帖
标题:VFP 语句如何实现运行时到指定语句执行
只看楼主 加入收藏
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
回复 11 楼 liuxingang28
给看看呗
2014-07-03 09:24
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:649
专家分:2156
注 册:2014-2-7
收藏
得分:0 
我已经将捣乱者“绳之以法”!

泉城飞狐
2014-07-03 09:30
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
回复 12 楼 liuxingang28
呵呵 我想让老师给看看程序
2014-07-03 09:38
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:649
专家分:2156
注 册:2014-2-7
收藏
得分:0 
如果楼主是在一个PRG文件中执行导入操作,则按如下代码修改:
程序代码:
……
IF ALLTRIM(sfz)#"身份证号"
    MessageBox("数据错误:EXCEL工作表SHeet1的第一行首列必须是[身份证号]!",48,"EXCEL数据格式错误,导入数据失败!")
    = DataClear(hb1)
    RETURN
……
DO WHILE .t.
   ……
   IF ISNULL(sfz)
       MessageBox("身份证号不能为空!请检查",48,"导入数据失败!")
       = DataClear(hb1)
       RETURN
    ENDIF
    ……
ENDDO
MESSAGEBOX("共转换导入"+ALLTRIM(STR(RECCOUNT()))+"条记录,"+CHR(13)+"请查明是否正确!",0+64,"数据导入完成!")
thisform.label1.Caption=""
= DataClear(hb1)

FUNCTION DataClear(toExcel)
    WITH toExcel
        .ActiveWorkbook.Close
        .Workbooks.close   &&关闭文件并退出EXCEL
        .quit
    ENDWITH
ENDFUNC
如果楼主是在一个表单中,通过单击命令按钮执行的导入,则可以为表单新建一个自定义方法,如:DataClear,并将上述代码中的自定义函数中的代码输入到表单的自定义方法中。将"“= DataClear(bh1)”改为 “= THISFORM.DataClear(bh1)”
程序代码:
* 表单自定义方法,用于退出Excel
LPARAMETER toExcel
WITH toExcel
    .ActiveWorkbook.Close
    .Workbooks.close   &&关闭文件并退出EXCEL
    .quit
ENDWITH


泉城飞狐
2014-07-03 09:50
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
IF ISNULL(sfz)
       MessageBox("身份证号不能为空!请检查",48,"导入数据失败!")
       = DataClear(hb1)
       RETURN
    ENDIF
为什么我表中有数据还提示身份证不能为空?还能继续运行下面的?
2014-07-03 14:04
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
我改有程序都不能运行了?????
2014-07-03 14:34
liuxingang28
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:山东济南
等 级:贵宾
威 望:47
帖 子:649
专家分:2156
注 册:2014-2-7
收藏
得分:0 
应该将 ISNULL(sfz)改为 EMPTY(sfz),如:
IF EMPTY(sfz)
    messagebox('....')
    = DataClear(hb1)
    retu
ENDIF

泉城飞狐
2014-07-03 14:35
shyibaoban
Rank: 1
等 级:新手上路
帖 子:125
专家分:2
注 册:2008-12-3
收藏
得分:0 
谢谢老师 我还是用自己原来的吧 越来越有问题了。
2014-07-03 15:32
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11759
专家分:43407
注 册:2006-5-13
收藏
得分:0 
身份证号是个字符型数据,不仅可能出现null,也可能会出现blank。由于是从EXCEL表格中导入,因此得到各种数据类型都有可能的。

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2014-07-04 06:44
快速回复:VFP 语句如何实现运行时到指定语句执行
数据加载中...
 
   



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

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