Question

请VB大师帮忙，一个文件有二张表用Option1、Option2、来打开控制，点击Option1把表一显示在List1上！

Public conn As New ADODB.Connection '定义数据连接字符串
Public rs As New ADODB.Recordset '定义记录集
Dim db$, i%, jj%

Private Sub Form_Load()
db = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & "C:\Users\Administrator\Desktop\新建文件夹 (2)\xing guang.mdb"
conn.CursorLocation = adUseClient
conn.Open db '打开数据库连接
rs.Open "表一", conn, adOpenKeyset, adLockPessimistic '打开记录集
If rs.RecordCount > 0 Then
rs.MoveFirst
List1.Clear
For i = 0 To rs.RecordCount - 1
List1.AddItem rs.Fields("301室")
rs.MoveNext
Next i
rs.MoveFirst
List1.Selected(0) = True
End If

Me.Move (Screen.Width - Me.Width) \ 2, (Screen.Height - Me.Height) \ 2
End Sub
Private Sub List1_Click()
If List1.ListCount > 0 Then
jj = List1.ListIndex
rs.MoveFirst
rs.Move jj
gzg001.Text = rs.Fields("名称)")
gzg002.Text = rs.Fields("姓别")
gzg003.Text = rs.Fields("年月日")

End If
End Sub

Answer 1

Private Sub Option1_Click()
If rs.state = 1 Then rs.Close
List1.Clear
rs.Open "表一", conn, 1, 1
Do Until rs.EOF
List1.AddItem rs("301室")
rs.MoveNext
Loop
rs.Close
End Sub

Private Sub Option2_Click()
If rs.state = 1 Then rs.Close
List1.Clear
rs.Open "表二", conn, 1, 1
Do Until rs.EOF
List1.AddItem rs("301室")
rs.MoveNext
Loop
rs.Close
End Sub

追问

大师啊大师，你回我一下好不好

追答

我不是已经写出代码给你了么？有什么不对的么？

追问

不是不对，是对的，但是还有一个要求，我老做不了，我发张图片给你看大师！

追答

你在窗体上放入两个PictureBox（或者用Frame），然后把“学生资料查询”以及下面的姓名、性别等等控件放入Picture1中，把“学生成绩查询”以及下面的姓名、语文、数学等等控件放入Picture2中，然后你在我的上述代码中分别添加两行：

Private Sub Option1_Click()
'其他代码略
Picture1.Visible = True
Picture2.Visible = False
End Sub
 
Private Sub Option2_Click()
'其他代码略
Picture1.Visible = False
Picture2.Visible = True
End Sub

追问

大师，这样好吗！我发个文件给你看一下，你帮我改一下好吗！我的是
八九四二七零零零伍，麻烦你大师，在此先谢谢谢谢谢谢

Answer 2

Private Sub Form_Load()
Option1.Value = True

End Sub

Private Sub Option1_Click()
。。。
End Sub

Private Sub Option2_Click()
。。。
End Sub

追问

大师，麻烦你给我写出来好吗？谢谢