关于dbcombo1与dblist1与data1的联接
Private Sub DBCombo1_Change()
Data2.RecordSource = "select huanyue_2j from huanyue_2j where huanyue_id='" & DBCombo1.Text & " ' "
'Data2.Refresh
Set DBList1.RowSource = Data2
Set DBList1.ListField = Data2.Recordset.Fields(0)
End Sub'出错