请教VFP表格保存SQL查询结果问题 ?(在线等待)

2004-05-02 01:11:56 245 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从翼型到湍流：用生活化案例图解空气动力学核心概念（中英双语版）本文通过飞机机翼、F1赛车、高尔夫球等生活化案例，图解空气动力学核心概念。深入浅出地解释了攻角如何产生升力、边界层与流动分离如何影响阻力、马赫数如何划分速度世界，以及涡流与湍流的特性与应用。文章还介绍了计算流体动力学（CFD）这一现代数字风洞工具，帮助读者直观理解这些塑造现代交通与运动设计的无形之力。阅读详情

我做了一个查询表单

其中有:
一个字段选择下拉列表框(COMBO1),里面保存一个学生信息表的字段(如:学号,姓名,性别,年龄等)
一个关系选择下拉列表框(COMBO2),里面保存了查询关系(文字信息:等于,大于,小于...)
一个查询值输入文本框(TEXT1)

然后下面是一个表格(RECORDSOURCETYPE 属性已设置为4 SQL说明) 右边有一个查询按钮

我对其的处理:
在表单的INIT事件里
PUBLIC F1,H1,T1

一字段选择处理 COMBO1
Click事件
FOR CT =1 TO THIS.LISTCOUNT
IF THIS.SELECTED(CT)
F1=THIS.LIST(CT)
EXIT
ENDIF
ENDFOR

二关系选择处理
Click事件
FOR CT=1 TO THIS.LISTCOUNT
IF THIS.SELECTed(CT)
EXIT
ENDIF
ENDFOR

DO CASE
CASE CT=1
H1=""
CASE CT=2
H1="="
CASE CT=3
H1=">"
CASE CT=4
H1=">="
CASE CT=5
H1="<"
CASE CT=6
H1="<="
CASE CT=7
H1="!="
ENDCASE

这样选择字段与关系后就可以通过SQL设置条件查询了.
然后想在那个查询按钮的Click事件中这样设置:
THISFORM.GRID1.RECORDSOURCE="一条上述的条件查询语句"
就这里我做不出来,请各位高手帮助

看我的做法
THISFORM.GRID1.RECORDSOURCE="SELECT * FROM 学生 WHERE &F1 &H1 THISFROM.TEXT1.VALUE INTO CURSOR GRID1"
可是不对呀愁死了... 请帮我修改

谢谢...

...全文

[官方培训]22-UE资产优化 Epic 肖月笔记 Nanite+Lumen目标：面向TA，美术，不影响视觉的前提下，优化运行和编辑效率引擎：UE5.1延迟管线平台：主流PC，Windows 10 with DX12。阅读详情

mm45

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

myfoxprox 2004-05-05

打赏
举报

关键是查询条件:
XFILTER=F1+H1+IIF(VARTYPE(THISFORM.TEXT1.VALUE)="N",ALLTRIM(STR(THISFORM.TEXT1.VALUE)),THISFORM.TEXT1.VALUE) &&我不知你年龄是不是数字类型?!是否还有其它类型?但都可以用VARTYPE()函数

SELECT * FROM 学生 INTO DBF TEMP.DBF WHERE &XFILTER

THISFORM.GRID1.RECORDSOURCE="TEMP.DBF"
THISFORM.REFRESH

mm45 2004-05-03

打赏
举报

我写的那个在数值型数据查询时好使。。。字符不能用不知道为什么，还请各位多多帮助啊

Sunboyjava 2004-05-03

打赏
举报

哪位还有高见啊　我觉得我做这种查询很常见啊　，大哥们帮帮小妹吧

lina000 2004-05-03

打赏
举报

这是我做的图书管理系统的按作者查询，原来跟你的问题差不多，下面的可做参考：
首先设置表格的columncount=你查询结果中总字段数象我的表格中columncount=11

*指定与表格控制相绑定的数据源。设计时可用，运行时只读写。

open database C:\WINDOWS\DESKTOP\myfile\图书管理.dbc
sele bookinfo
THISFORM.grid1.RECORDSOURCE=''

SELE * FROM bookinfo where allt(author)==allt(thisform.text1.value) into cursor stable

IF _TALLY>0 &&&_TALLY是select等一些对表记录操作的数量或结果集的记录数
thisform.grid1.recordsourcetype=1

THISFORM.grid1.RECORDSOURCE='stable'

thisform.grid1.column1.header1.caption= "出版社ID"
thisform.grid1.column2.header1.caption= "ISBN号"
thisform.grid1.column3.header1.caption= "书名"
thisform.grid1.column4.header1.caption= "出版日期"
thisform.grid1.column5.header1.caption= "作者"
thisform.grid1.column6.header1.caption= "字数（千字）"
thisform.grid1.column7.header1.caption= "出版社ID"
thisform.grid1.column8.header1.caption= "印刷册数"
thisform.grid1.column9.header1.caption= "价格"
thisform.grid1.column10.header1.caption= "关键字"
thisform.grid1.column11.header1.caption= "摘要"

thisform.grid1.column1.controlsource= "bookid"
thisform.grid1.column2.controlsource= "isbn"
thisform.grid1.column3.controlsource= "tit"
thisform.grid1.column4.controlsource= "publishdate"
thisform.grid1.column5.controlsource= "author"
thisform.grid1.column6.controlsource= "words"
thisform.grid1.column7.controlsource= "publisherid"
thisform.grid1.column8.controlsource= "num"
thisform.grid1.column9.controlsource= "price"
thisform.grid1.column10.controlsource= "keywords"
thisform.grid1.column11.controlsource= "abstract"

else
MESSAGEBOX('没有符合要求的记录！')
ENDIF
THISFORM.GRID1.REFRESH

dfwxj 2004-05-02

打赏
举报

错了，我看错了命令转行，正确的做法：

根据选择的条件，将合符条件的记录查询到一个临时表，表格的数据源类型设置为别名，数据源设置为临时表名

在查询前将表格的数据源置空，查询后设置为相应的临时表名，然后刷新表格

dfwxj 2004-05-02

打赏
举报

正确的应该是：

THISFORM.GRID1.RECORDSOURCE="SELECT * FROM 学生 WHERE &F1 &H1 thisform.text1.value

dfwxj 2004-05-02

打赏
举报

肯定错了

THISFORM.GRID1.RECORDSOURCE="SELECT * FROM 学生 WHERE &F1 &H1

&F1是字段，&H1是逻辑运算符，那逻辑运算的值呢？你这条命令不完整！

请教VFP表格保存SQL查询结果问题 ?(在线等待)

相关推荐