t.Fill(Sel ect 学期,班级,a.学生编号,IIF(Len(学生姓名) = 2,Mid(学生姓名,1,1) & ' ' & Mid(学生姓名,2,1),学生姓名) As 学生姓名,'学费' As 缴费项目,缴费日期,缴费方式,fa piao号,缴费金额,收费人 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编辑过]
加好友 
发短信
Post By：2021/3/24 10:59:00 [只看该作者]
