急求vfp按分组查询表单的一个查询的按钮代码

来源:百度知道 编辑:UC知道 时间:2024/06/17 12:39:48
CLOSE TABLES all
USE 借阅信息表
USE 书籍信息表
IF thisform.combo1.Text="书号"
SELECT * FROM 借阅信息表 WHERE 借阅信息表.书号=thisform.text1.Value;
INTO CURSOR result
thisform.grid1.RecordSource =result
thisform.grid1.Refresh
ENDIF
IF thisform.combo1.Text ="书名"
SELECT 书籍信息表.书名,借阅信息表;
FROM 借阅信息表 INNER JOIN 书籍信息表;
ON 借阅信息表.书号=书籍信息表.书号;
WHERE 书籍信息表.书名=thisform.text1.Value ;
INTO CURSOR result
thisform.grid1.RecordSource =result
thisform.grid1.Refresh
ENDIF
这是我的代码,运行时老是弹出SOL找不到该列。
改了,但是不能实现其功能,这是怎么回事?

close all
IF thisform.combo1.Text="书号"
SELECT * FROM 借阅信息表 WHERE 借阅信息表.书号=thisform.text1.Value;
INTO CURSOR result
thisform.grid1.RecordSource ="result"
thisform.grid1.Refresh
ENDIF
IF thisform.combo1.Text ="书名"
SELECT 书籍信息表.书名,借阅信息表(此处差字段名);
FROM 借阅信息表 INNER JOIN 书籍信息表;
ON 借阅信息表.书号=书籍信息表.书号;
WHERE 书籍信息表.书名=thisform.text1.Value;
INTO CURSOR result
thisform.grid1.RecordSource ="result"
thisform.grid1.Refresh
ENDIF