这种情况填充后是查询表,默认是锁住不能编辑的,列自然不能进行其它操作
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