vb在sstab中添加datagrid问题

我想在sstab中建立三个选项卡，每个选项卡中建立一个datagrid，每一个里面放同一数据库的不同表，表的名称分别是：图书类别、物品类别、出版社表，datagrid连接数据库的代码如下：Private Sub Form_Load() Dim sql As String Dim conn As New ADODB.Connection On Error GoTo loaderror ' Provider = "Microsoft.Jet.OLEDB.3.5.1 ;Persist Security Info=false;data source=D:\图书管理系统\database.mdb" conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"  sql = "select * from 图书类别" rs_reader.CursorLocation = adUseClient rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic   cmdupdate.Enabled = False cmdcancel.Enabled = False DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_reader Exit Subloaderror:  MsgBox Err.DescriptionEnd Sub请问怎么样可以点不同选项卡的时候出现不同的表。

---

首先:如果设置了3张选项卡那么：
TabStrip1.SelectedItem.Index的属性对应1、2、3
在设链瞎计高唤姿时，我通常在上面添加3个PictureBox作为容器戚绝，默认状态1可见，2与3不可见，然后在
编写代码：
Private Sub TabStrip1_Click()
select case TabStrip1.SelectedItem.Index
case 1
Picture1.Visible = True
Picture2.Visible = Fasle
Picture3.Visible = Fasle
……
case 2
……
……
case 3
……
……
End Select
End Sub

---

VB6?

很简单，都不用代码，直接设置好就可以了。
sstab控件，设计时就是可以点击的。选择那个选项卡，添加一个datagrid就可以了。扰伏
每个选项卡都可以放置不同的缓咐携控件。

datagrid控件简局也可以在设计时设置好那些属性。
不过前提是用到adodc控件。

这种程序，完全不需要代码。

---

提问者：匿名

---