vfp 查询按钮代码该如何修改！ - VFP论坛

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

编程论坛 → 数据库技术 → 『 VFP论坛』 → vfp 查询按钮代码该如何修改！

我的收件箱(0)

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

共有 726 人关注过本帖

标题：vfp 查询按钮代码该如何修改！

只看楼主加入收藏

陈77

等　级：新手上路
帖　子：6
专家分：0
注　册：2014-8-20
结帖率：50%

楼主

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

vfp 查询按钮代码该如何修改！

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

js=alltrim(thisform.text1.value) or kc=alltrim(thisform.text2.value)
        set exact on
        go top
        locate for 教师名=js.and.课程名=kc
        if eof()
            messagebox('输入错误，请重新输入!')
            return
        else
            thisform.visible=.f.
            do form 课程表  &&调入课程表
        endif
        set exact off &&设置字符非精确比较

搜索更多相关主题的帖子: return　课程表　如何　教师　

2014-09-01 22:03

陈77

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

第 2 楼

得分:0

想输入教师名或课程名其中一个即可查询相关课程的表

2014-09-01 22:04

sdta

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

第 3 楼

得分:4

提供个思路
DO CASE
   CASE EMPTY(THISFORM.TEXT1.VALUE)
        TJ=....
   CASE EMPTY(THISFORM.TEXT2.VALUE)
        TJ=....
   OTHERWISE
        TJ=....
ENDCASE
LOCATE FOR &TJ
.............

坚守VFP最后的阵地

2014-09-02 00:02

tlliqi

等　级：贵宾
威　望：204
帖　子：15453
专家分：65956
注　册：2006-4-27

第 4 楼

得分:0

楼主想叫干什么

2014-09-02 00:24

hu9jj

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

第 5 楼

得分:0

没有看过第一行的代码格式

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

2014-09-02 07:33

吹水佬

等　级：版主
威　望：451
帖　子：10566
专家分：43004
注　册：2014-5-20

第 6 楼

得分:4

locate for ......
if eof() 这句应改为 if !found()

2014-09-02 08:25

bccn0906

来　自：广州
等　级：蜘蛛侠
威　望：2
帖　子：414
专家分：1183
注　册：2013-10-16

第 7 楼

得分:12

js=alltrim(thisform.text1.value)
kc=alltrim(thisform.text2.value)
IF EMPTY(js) AND EMPTY(kc)
   messagebox('请输入查询条件!',64,'提示')
   RETURN
ENDIF
tj=''
IF NOT EMPTY(js)
    tj=tj+"教师名=js and "
ENDIF
IF NOT EMPTY(kc)
    tj=tj+"课程名=kc and "
ENDIF
tj=LEFT(tj,LEN(tj)-4)
SET exact ON
LOCATE FOR &tj.
IF not FOUND()
    messagebox('输入错误，请重新输入!')
    RETURN
ENDIF
。。。。。。。。

2014-09-02 10:14

快速回复：vfp 查询按钮代码该如何修改！