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

点击"午餐信息"下拉菜单项目代码？请老师指教，谢谢！

ItemClick 代码

Dim t As Table= e.Form.Controls("Table1").Table

Dim SQl As String

Select Case e.StripItem.Name

Case e.StripItem.Text

点击"基本信息"下拉菜单项目

SQL = "Se lect 学期,班级,b.学生编号,IIF(Len(学生姓名) = 2,Mid(学生姓名,1,1) & ' ' & Mid(学生姓名,2,1),学生姓名) As 学生姓名,身份证号,IIF(Len(身份证号) =18,IIF(MID(身份证号,17,1) Mod 2,'男','女'),Null) As 性别,IIF(Len(身份证号) =18,MID(身份证号,7,4) & '-' & MID(身份证号,11,2) & '-' & MID(身份证号,13,2)) As 出生日期,int(datediff('d',IIF(Len(身份证号) =18,MID(身份证号,7,4) & '-' & MID(身份证号,11,2) & '-' & MID(身份证号,13,2)),Cdate(cstr(year(Date()))+'-09-01'))/365.2422) As 年龄,民族 Fr om {学生基本信息} a Inner JOIN {学生缴费} b ON b.[学生编号] = a.[学生编号] Where 学期 = '"& e.StripItem.Text &"'"

点击"午餐信息"下拉菜单项目

SQL = "Se lect 学期,班级,b.学生编号,IIF(Len(学生姓名) = 2,Mid(学生姓名,1,1) & ' ' & Mid(学生姓名,2,1),学生姓名) As 学生姓名,餐费金额 Fr om {学生基本信息} a Inner JOIN {学生缴费} b ON b.[学生编号] = a.[学生编号] Where 学期 = '"& e.StripItem.Text &"'"

End Select

t.Fill(SQL,True)

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.rar

[此贴子已经被作者于2021/3/3 9:49:52编辑过]

主题：动态生成菜单项目