如何根据“评定等级”列的状况,在TextBox控件中显示对应的人数,要求等级发生变化时,对应控件同时改变。请各位老师指教,谢谢!!
[此贴子已经被作者于2011-10-4 11:17:34编辑过]
以下是引用ybil在2011-10-4 13:10:00的发言:
只看到在窗体的加载事件中写了一行代码,没见到其他任何代码啊.这个会经常用到,期望您有空时耐心地帮我解释一下.谢谢!
Select Case e.DataCol.Name
Case "评定等级"
If Forms("窗口1").Opened Then
Forms("窗口1").Controls("TextBox2").value = DataTables("表A").Compute("Count(字符串)","[评定等级] ='A'")
Forms("窗口1").Controls("TextBox3").value = DataTables("表A").Compute("Count(字符串)","[评定等级] ='B'")
Forms("窗口1").Controls("TextBox4").value = DataTables("表A").Compute("Count(字符串)","[评定等级] ='C'")
Forms("窗口1").Controls("TextBox5").value = DataTables("表A").Compute("Count(字符串)","[评定等级] ='D'")
End If
End Select