Question

vb 把TabStrip1选项卡的ITEM（有3个）显示的内容做成报表！求教高手~~！！！

把TabStrip1选项卡的ITEM（有几个）显示的内容做成报表

打印报表按钮
Private Sub Command5_Click()
Select Case TabStrip1.SelectedItem
Case "图书信息浏览" ‘这个是item（1）’
DataEnvironment1.rsCommand1.Open "select 图书编码 as 图书编码,图书名称 as 图书名称,作者 as 作者,出版社 as 出版社,图书分类 as 图书分类,购买时间 as 购买时间 from book", con, adOpenKeyset, adLockOptimistic
DataReport1.Show
Case "读者信息浏览" ‘这个是item（2）’
DataEnvironment1.rsCommand2.Open "select 借阅号 as 借阅号,姓名 as 姓名,性别 as 性别,电话 as 电话,住址 as 住址 from reader", con, adOpenKeyset, adLockOptimistic
DataReport2.Show
Case "图书借阅信息浏览" ‘这个是item（3）’
DataEnvironment1.rsCommand3.Open "select 序号 as 序号,借阅号 as 借阅号,图书编码 as 图书编码,借阅时间 as 借阅时间 from record", con, adOpenKeyset, adLockOptimistic
DataReport3.Show
End Select
End Sub

有时候开始选择item（1）或item（2）点击Command5时，会有显示，但是选择item（3）点击Command5时，没有反应；再次点选择item（1）或item（2）点击Command5时，就会出现实时错误3705或3704。请问各位高手，帮帮忙！谢谢了！

Answer 1

hmjhgjkyuh