| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 查询表下拉问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97273) |
| -- 作者：良才 -- 发布时间：2017/3/9 8:12:00 -- 查询表下拉问题 e.Form.controls("Table1").Table.Fill("Sel ect b.学期,班级,b.学生编号,b.学生姓名,缴证日期 Fr om (({学生基本信息} a Inner JOIN {缴费信息} b ON a.学生编号 = b.学生编号) Inner JOIN (Se lect 学生编号,max(缴证日期) As 缴证日期 From {学生缴证} GROUP BY 学生编号) c ON c.学生编号 = b.学生编号) LEFT JOIN(Sel ect 学生编号 From {学生缴证} WHERE 学期 = \'2016年秋季\') d ON d.学生编号 = b.学生编号 WHERE b.学期 = \'2016年秋季\' And 缴费项目 = \'学费\' And 缴费状态 = \'已缴\' And d.学生编号 Is Null ORDER BY b.班级,b.学生编号", True)
e.Form.Controls("Table1").Table.Cols("学生编号").DropForm = "筛选窗口"
这样不下拉，请指点，谢谢 |
| -- 作者：有点蓝 -- 发布时间：2017/3/9 8:49:00 -- 这种情况填充后是查询表，默认是锁住不能编辑的，列自然不能进行其它操作 Dim t As Table = e.Form.controls("Table1").Table t.Fill("Sel ect b.学期,班级,b.学生编号,b.学生姓名,缴证日期 Fr om (({学生基本信息} a Inner JOIN {缴费信息} b ON a.学生编号 = b.学生编号) Inner JOIN (Se lect 学生编号,max(缴证日期) As 缴证日期 From {学生缴证} GROUP BY 学生编号) c ON c.学生编号 = b.学生编号) LEFT JOIN(Sel ect 学生编号 From {学生缴证} WHERE 学期 = \'2016年秋季\') d ON d.学生编号 = b.学生编号 WHERE b.学期 = \'2016年秋季\' And 缴费项目 = \'学费\' And 缴费状态 = \'已缴\' And d.学生编号 Is Null ORDER BY b.班级,b.学生编号", True)
t.Cols("学生编号").DropForm = "筛选窗口" t.AllowEdit = True |
| -- 作者：良才 -- 发布时间：2017/3/9 8:58:00 -- 谢谢 |