动态生成菜单项目 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 动态生成菜单项目

共有3360人关注过本帖树形打印复制链接主题：动态生成菜单项目

联友

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：300 积分：2565 威望：0 精华：0 注册：2013/5/23 9:49:00

动态生成菜单项目 发帖心情

Post By：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)