- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 动态生成菜单项目 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161185)
-- 发布时间：2021/3/9 12:30:00
-- 动态生成菜单项目
请老师指教，谢谢！
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)
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项.rar |
[此贴子已经被作者于2021/3/10 7:58:44编辑过]
-- 发布时间：2021/3/9 13:54:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目.zip |
-- 发布时间：2021/3/10 7:58:00
--
谢谢