以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  动态生成菜单  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161608)

--  作者：联友 --  发布时间：2021/3/24 10:59:00 --  动态生成菜单         t.Fill(Sel ect  学期,班级,a.学生编号,IIF(Len(学生姓名) = 2,Mid(学生姓名,1,1) & \'  \' & Mid(学生姓名,2,1),学生姓名) As 学生姓名,\'学费\' As 缴费项目,缴费日期,缴费方式,发票号,缴费金额,收费人 From {学生基本信息} a Inner JOIN {缴学费} b ON b.[学生编号] = a.[学生编号] Where 学期 = \'2021年春季\'","Sale",True) For Each bj As String In DataTables("财务分析_Table1").GetValues("缴费日期")     e.Form.Strips("筛选日期").Items.Add("checi_" & bj, bj, "", StripItemTypeEnum.MenuItem) Next e.Sender.ShowContextStrip(0, e.Sender.Height,e.Form.Strips("筛选日期")) 日期格式转换成，Format(#2/28/2008#, "yyyy-MM-dd") \'2008-02-28格式 请老师指教 [此贴子已经被作者于2021/3/24 11:00:03编辑过]

--  作者：有点蓝 --  发布时间：2021/3/24 11:06:00 --   For Each bj As String In DataTables("财务分析_Table1").GetValues("缴费日期") dim s as string = Format(cdate(bj), "yyyy-MM-dd")     e.Form.Strips("筛选日期").Items.Add("checi_" & s, s, "", StripItemTypeEnum.MenuItem) Next