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
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编辑过]