在cmb2的Enter事件中加入代码：Dim cmb1 As WinForm.ComboBox = Forms("窗口1").Controls("cmb1")Dim cmb2 As WinForm.ComboBox = Forms("窗口1").Controls("cmb2")cmb2.ComboList = DataTables("员工").GetComboListString("姓名","部门 = '" & cmb1.value & "'" )
加好友 
发短信
Post By：2009/6/17 9:30:00 [只看该作者]
