窗体上放了两个DataCombo控件
想其中一个改变时另一个根据数据库内容也跟着改变，但运行时无效果，也不报错Dim rs As New ADODB.Recordset
程序代码：Private Sub DataCombo2_Change() rs.Open "select * from [DMZD_Team] where [Department]= '" & DataCombo2.BoundText & "'", adoCon Set DataCombo3.RowSource = rs DataCombo3.ListField = "TeamCode" rs.Close End Sub
[此贴子已经被作者于2016-12-19 20:05编辑过]
