急求vfp按分组查询表单的一个查询的按钮代码
CLOSETABLESallUSE借阅信息表USE书籍信息表IFthisform.combo1.Text="书号"SELECT*FROM借阅信息表WHERE借阅信息表.书...
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找不到该列。
改了,但是不能实现其功能,这是怎么回事? 展开
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找不到该列。
改了,但是不能实现其功能,这是怎么回事? 展开
1个回答
展开全部
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
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
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询