关于一个表单的代码，运行不了。 - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → 关于一个表单的代码，运行不了。

我的收件箱(0)

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

共有 442 人关注过本帖

标题：关于一个表单的代码，运行不了。

只看楼主加入收藏

chrisli

等　级：新手上路
帖　子：8
专家分：0
注　册：2013-1-16
结帖率：50%

楼主

问题点数：0 回复次数：4

关于一个表单的代码，运行不了。

新建 Microsoft Word 文档.zip (68.39 KB)

搜索更多相关主题的帖子: 表单　

2013-01-18 19:18

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11857
专家分：43421
注　册：2006-5-13

第 2 楼

得分:0

运行不了有什么提示？

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2013-01-18 19:40

chrisli

等　级：新手上路
帖　子：8
专家分：0
注　册：2013-1-16

第 3 楼

得分:0

回复 2楼 hu9jj

没提示，点查询，没反应

2013-01-18 19:43

hu9jj

来　自：红土地
等　级：贵宾
威　望：400
帖　子：11857
专家分：43421
注　册：2006-5-13

第 4 楼

得分:0

以下是引用chrisli在2013-1-18 19:43:09的发言：

没提示，点查询，没反应

能点查询，那说明表单在运行啊。没反应则应该查检查询按钮中的代码。

活到老，学到老！http://www.（该域名已经被ISP盗卖了）E-mail:hu-jj@

2013-01-18 19:47

sdta

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

第 5 楼

得分:0

local cname
cname=alltrim(thisform.Text1.value)
select 课程
if !empty(cname)
   locate for alltrim(课程名)==CNAME
   if found()
      thisform.grid1.recordsource="select 课程.课程号,课程.课程名,课程.学时,课程.学分;
           from 课程 WHERE alltrim(课程.课程名)==CNAME into cursor temp"
      thisform.grid1.recordsourceTYPE=4
      THISFORM.GRID1.COLUMNCOUNT=FCOUNT([temp])
      THISFORM.GRID1.REFRESH
   else
      messagebox("课程记录中没有"+cname+"课程名",16,"提示信息")
      thisform.Text1.value=""
      thisform.Text1.setfocus
   endif
else
   messagebox("没有输入课程名,无法查询",16,"提示信息")
   thisform.Text1.setfocus
endif

[ 本帖最后由 sdta 于 2013-1-18 19:55 编辑 ]

坚守VFP最后的阵地

2013-01-18 19:48

快速回复：关于一个表单的代码，运行不了。