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


  共有2849人关注过本帖树形打印复制链接

主题:动态生成菜单项目

帅哥哟,离线,有人找我吗?
良才
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:773 积分:6185 威望:0 精华:0 注册:2012/6/11 17:21:00
动态生成菜单项目  发帖心情 Post By:2021/3/3 9:49:00 [只看该作者]

点击"午餐信息"下拉菜单项目代码?请老师指教,谢谢!
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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/3 10:03:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目3.zip


 回到顶部
帅哥哟,离线,有人找我吗?
良才
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:773 积分:6185 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2021/3/3 10:14:00 [只看该作者]

谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:773 积分:6185 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2021/3/5 10:25:00 [只看该作者]

老师再请教,生成学期和车次,如图

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210305102416.png
图片点击可在新窗口打开查看

cmd.C
cmd.CommandText = "Sel ect  top 2 a.学期,车辆号牌 & '('& 车次 & ')' As 车次 From {学生缴费} a Inner JOIN {接送安排} b ON a.[学期] =b.[学期] And a.[接送地点] = b.[接送地点] Group by a.学期,车辆号牌 & '('& 车次 & ')' Order by a.学期  Desc"
dt =  cmd.ExecuteReader
If e.Form.Strips.Contains("学生接送") Then
    e.Form.Strips("学生接送").Items.Clear() '清除原来的项目
    For Each bj As String In dt.GetValues("学期|车次","","学期  Desc")
        e.Form.Strips("学生接送").Items.Add(bj,bj, "", StripItemTypeEnum.MenuItem)
    Next
End If
e.Sender.ShowContextStrip(0, e.Sender.Height, e.Form.Strips("学生接送"))

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/5 10:34:00 [只看该作者]

什么问题,没看懂

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:773 积分:6185 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2021/3/5 15:44:00 [只看该作者]

学生接送下层是学期,学期下层是车次

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/5 15:57:00 [只看该作者]

If e.Form.Strips.Contains("学生接送") Then
    e.Form.Strips("学生接送").Items.Clear() '清除原来的项目
dim s as dtring = ""
dim item as WinForm.StripItem
    For Each bj() As String In dt.GetValues("学期|车次","","学期  Desc")
if s <> bj(0)
item = e.Form.Strips("学生接送").Items.Add(bj(0),bj(0), "", StripItemTypeEnum.MenuItem)
end if
s = bj(0)
        item.Items.Add(bj(1),bj(1),"", StripItemTypeEnum.MenuItem)
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:773 积分:6185 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2021/3/5 16:03:00 [只看该作者]

老师出错

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210305160151.png
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/3/5 16:07:00 [只看该作者]

笔误,但是也不会连这种基础的错误都判断不了吧

dim s as string = ""

 回到顶部
帅哥哟,离线,有人找我吗?
良才
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:773 积分:6185 威望:0 精华:0 注册:2012/6/11 17:21:00
  发帖心情 Post By:2021/3/6 10:39:00 [只看该作者]

老师,出错
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目27.rar

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20210307135954.png
图片点击可在新窗口打开查看




[此贴子已经被作者于2021/3/7 14:00:32编辑过]

 回到顶部
总数 13 1 2 下一页