请老师指教,谢谢!
ItemClick代码
Dim t As Table= e.Form.Controls("Table1").Table
Dim SQl As String
Sel ect Case e.StripItem.Name
Case "筛选班级"
SQL = "Se lect 学期,班级,b.学生编号,IIF(Len(学生姓名) = 2,Mid(学生姓名,1,1) & ' ' & Mid(学生姓名,2,1),学生姓名) As 学生姓名,民族 From {学生基本信息} a Inner JOIN {学生缴费} b ON b.[学生编号] = a.[学生编号] Where 学期 = '"& ?&"' And 班级 = '"& ?t &"'"
End Select
t.Fill(SQL,True)
[此贴子已经被作者于2021/3/10 7:58:44编辑过]