求大神帮忙！文件不存在问题 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求大神帮忙！文件不存在问题

我的收件箱(0)

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

共有 1079 人关注过本帖， 1 人收藏

标题：求大神帮忙！文件不存在问题

只看楼主加入收藏

Lavender2507

等　级：新手上路
帖　子：14
专家分：0
注　册：2014-4-6
结帖率：100%

楼主

已结贴√ 问题点数：20 回复次数：22

求大神帮忙！文件不存在问题

VFP.zip (1.2 MB)

我运行那个按姓名查询之后，点击下面的简单信息查询等，都说文件不存在，可是我已经设置过默认目录了，也确定这个在那个文件夹里。

搜索更多相关主题的帖子: 文件夹　信息　姓名　

2014-04-06 00:32

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9820
专家分：27099
注　册：2012-2-5

第 2 楼

得分:7

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

原因是'简单信息查询'后面不可识别的字符造成了文件找不到。见上面的贴图。

坚守VFP最后的阵地

2014-04-06 01:19

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9820
专家分：27099
注　册：2012-2-5

第 3 楼

得分:0

删除这个字符就行了，但是你的表单上代码错误太多，不能正常运行。自己先检查原因。

坚守VFP最后的阵地

2014-04-06 01:24

Lavender2507

等　级：新手上路
帖　子：14
专家分：0
注　册：2014-4-6

第 4 楼

得分:0

回复 2楼 sdta

谢谢！！！我懂了！还有一个问题。我建立了一个工具栏，放在表单里。按书上写的form的active事件代码里应该写if type("thisform.otoolbar")="O"and ! isnull(thisform.otoolbar)
   return
else
   set classlib to 913107820102 additive
   this.otoolbar=createObject("toolbar1",thisform)
   this.otoolbar.show
   this.otoolbar.dock(0)
   release classlib 913107820102
endif

（913107820102是我类的名字）但是运行表单后总说对象不在表单里。

2014-04-06 01:53

sdta

来　自：江苏省连云港市
等　级：版主
威　望：335
帖　子：9820
专家分：27099
注　册：2012-2-5

第 5 楼

得分:0

以下是引用Lavender2507在2014-4-6 01:53:33的发言：

谢谢！！！我懂了！还有一个问题。我建立了一个工具栏，放在表单里。按书上写的form的active事件代码里应该写if type("thisform.otoolbar")="O"and ! isnull(thisform.otoolbar)
   return
else
   set classlib to 913107820102 additive
   this.otoolbar=createObject("toolbar1",thisform)
   this.otoolbar.show
   this.otoolbar.dock(0)
   release classlib 913107820102
endif

（913107820102是我类的名字）但是运行表单后总说对象不在表单里。

表单INIT 事件中（在工具栏所在的表单中，添加一个自定义属性，用于为顶层表单添加工具栏，属性名：otoolbar）

程序代码：

LCFILE=SYS(1271,THISFORM)
THIS.SHOW &&先显示表单，否则工具栏会一直被表单覆盖
IF TYPE("THISFORM.otoolbar")="O" AND !ISNULL(THISFORM.otoolbar)
   RETURN
ENDIF
SET CLASSLIB TO JUSTPATH(LCFILE)+"\913107820102.VCX" ADDITIVE
THISFORM.otoolbar=CREATEOBJECT("bar1")
THISFORM.otoolbar.DOCK(0)&&将工具栏停靠在顶层表单窗口中
THISFORM.otoolbar.SHOW
RELEASE CLASSLIB JUSTPATH(LCFILE)+"\913107820102.VCX"