请问这一功能能否实现？

Question

用一列表框显示t-dept中的所有信息,当从列表框中选择一项时，从t-user中选择部门为此列表项的，显示在另一列表框中。

Answer 1

用SQL读出来就是了。
和操作t_User一样的。

Answer 2

可以近似地实现 不过效果不好就是了
需要的控件
Adodc1
  ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Program Files\Microsoft Visual Studio\" & _
      "VB98\NWIND.MDB;" & _
    "Persist Security Info=False"
  RecordSource = "Orders"Adodc2
  ConnectionString = _
    "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=C:\Program Files\Microsoft Visual Studio\" & _
      "VB98\NWIND.MDB;" & _
    "Persist Security Info=False"
  RecordSource = "Customers"DataGrid1
  DataSource = Adodc1
  
DataList1
  RowSource = Adodc2
  ListField = "CustomerID"
  Visible  = FalsePrivate Sub DataGrid1_ButtonClick(ByVal ColIndex As Integer)
    With DataList1
        .Visible = True
        .Left = DataGrid1.Left + DataGrid1.Columns(ColIndex).Left
        .Top = DataGrid1.Top + DataGrid1.RowTop(DataGrid1.Row) + DataGrid1.RowHeight
        .Width = DataGrid1.Columns(ColIndex).Width
    End With
    DataList1.SetFocus
End SubPrivate Sub DataList1_Click()
    DataGrid1.Text = DataList1.Text
    DataList1.Visible = False
End SubPrivate Sub DataList1_Validate(Cancel As Boolean)
    DataList1.Visible = False
End Sub