VFP增删查改实例：怎么在点击添加、修改、浏览按钮时总是卡住？ - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → VFP增删查改实例：怎么在点击添加、修改、浏览按钮时总是卡住？

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 931 人关注过本帖

标题：VFP增删查改实例：怎么在点击添加、修改、浏览按钮时总是卡住？

只看楼主加入收藏

dengxsh

等　级：论坛游民
帖　子：87
专家分：40
注　册：2013-2-26
结帖率：73.68%

楼主

已结贴√ 问题点数：30 回复次数：6

VFP增删查改实例：怎么在点击添加、修改、浏览按钮时总是卡住？

VFP增删查改操作.zip (14.95 KB)

我自己根据需要做了一个学生信息管理操作程序，但总是在点击添加、修改、浏览按钮时卡住不动？请求高手们帮助！

图片附件: 游客没有浏览图片的权限，请登录或注册

我自己根据需要做了一个学生信息管理操作程序，但总是在点击添加、修改、浏览按钮时卡住不动？请求高手们帮助！

搜索更多相关主题的帖子: 按钮　

2013-05-15 13:59

kiff

来　自：广州
等　级：贵宾
威　望：46
帖　子：756
专家分：2531
注　册：2013-1-30

第 2 楼

得分:20

*!*        pictemp=Thisform.image1.Picture
*!*        j=0
*!*        Do While .T.
*!*            j=j+1
*!*            If Left(Right(pictemp,j),1)=="\"
*!*                Exit
*!*            Endif
*!*        Enddo

*!*        fielname="photo" + Right(pictemp,j)
以上代码会遇到死循环.可用以下这句代替
fielname=IIF(EMPTY(Thisform.image1.Picture),'',"photo\" + Justfname(Thisform.image1.Picture))
---------------------------
在 "粘贴照片"，同样有这问题，可能这样修改。

pictemp=getpict("bmp;jpg","选择照片","导入")
if EMPTY(pictemp)
    return
endif
fielname='photo\'+Justfname(pictemp)
COPY FILE (pictemp) TO (fielname)
thisform.image1.picture=fielname

[ 本帖最后由 kiff 于 2013-5-15 16:21 编辑 ]

2013-05-15 15:33