在后面加上条件筛选,弄两个组合控件第一个在Enter事件
Dim cmb As WinForm.ComboBox
cmb = Forms("窗口1").Controls("ComboBox1")
cmb.ComboList = DataTables("表A").GetComboListString("姓名")
第二个在Enter事件
Dim GYS As WinForm.ComboBox = e.Form.Controls("ComboBox1")
e.Sender.ComboList = Tables("表A").DataTable.sqlGetComboListString("项目", "姓名 = '" & gys.Value & "'")
然后在TextChanged
Dim GYS As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim GYSs As WinForm.ComboBox = e.Form.Controls("ComboBox2")
Tables("表A").Filter = "姓名 = '" & gys.value & "' And 项目 = '" & gyss.value & "'"
没看清楚，呵呵，楼主，可以弄一个变量记住登陆名保存到全局变量里Public _UserName As
String
然后 引用加载，就不这去选了
[此贴子已经被作者于2014-5-11 20:12:43编辑过]
加好友 
发短信
Post By：2014/5/11 19:23:00 [显示全部帖子]
