Dim fxlb As WinForm.ComboBox = e.Form.Controls("分校列表")
Dim rs As WinForm.Label = e.Form.Controls("人数")
Dim i As Integer = DataTables("学员信息").SQLCompute("Count(*)", "所属分校='" & fxlb.text & "'and openid Is Not Null")
rs.text=i
DataTables("学员信息").LoadFilter "所属分校='" & fxlb.text & "'And openid > ''"
DataTables("学员信息").Load
此主题相关图片如下:123.png
