如何实现点击Listview中的行，在MSHFlexGrid中显示此行相应的数据？

Question

数据库中有两个表，一个是班级表，一个是明细表。
班级表中有三行数据：老师、学生、家长
明细表中是全体老师、学生、家长列表。如何实现：
点击Listview“老师”一行，在MSHFlexGrid出现老师列表。
点击Listview“学生”一行，在MSHFlexGrid出现学生列表。
......

Answer 1

Private Sub Form_Load()
   Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\db22.mdb;Persist Security Info=False"
   Adodc1.CommandType = adCmdText
   Adodc1.RecordSource = "select bj from bjb"
   Adodc1.Refresh
   
   While Not Adodc1.Recordset.EOF
     ListView1.ListItems.Add , , Adodc1.Recordset.Fields(0)
     Adodc1.Recordset.MoveNext
   Wend
   
   
End SubPrivate Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
    If Item = "教师" Then
      Adodc1.RecordSource = "select js from mxb"
      Adodc1.Refresh
      Set MSHFlexGrid1.DataSource = Adodc1
    ElseIf Item = "学生" Then
      Adodc1.RecordSource = "select xs from mxb"
      Adodc1.Refresh
      Set MSHFlexGrid1.DataSource = Adodc1
    ElseIf Item = "家长" Then
      Adodc1.RecordSource = "select jz from mxb"
      Adodc1.Refresh
      Set MSHFlexGrid1.DataSource = Adodc1
    End If
    
End Sub