| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 442 人关注过本帖
标题:关于一个表单的代码,运行不了。
只看楼主 加入收藏
chrisli
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-1-16
结帖率:50%
收藏
 问题点数:0 回复次数:4 
关于一个表单的代码,运行不了。
新建 Microsoft Word 文档.zip (68.39 KB)
搜索更多相关主题的帖子: 表单 
2013-01-18 19:18
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
运行不了有什么提示?

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2013-01-18 19:40
chrisli
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2013-1-16
收藏
得分:0 
回复 2楼 hu9jj
没提示,点查询,没反应
2013-01-18 19:43
hu9jj
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:红土地
等 级:贵宾
威 望:400
帖 子:11857
专家分:43421
注 册:2006-5-13
收藏
得分:0 
以下是引用chrisli在2013-1-18 19:43:09的发言:

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

活到老,学到老!http://www.(该域名已经被ISP盗卖了)E-mail:hu-jj@
2013-01-18 19:47
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-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
快速回复:关于一个表单的代码,运行不了。
数据加载中...
 
   



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

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