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