以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  编辑查询表列  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143033)
--  作者：良才
--  发布时间：2019/11/12 11:35:00
--  编辑查询表列

Tables("窗口1_Table1")类型是SQLTable，想编辑托管状况列，

PrepareEdit

If e.IsFocusCell Then
    If e.Col.Name = "托管状况" Then
        e.Col.Combolist = "事假|病假|无故"
     End If
End If

 

怎样允许编辑托管状况列，求代码？谢谢！
--  作者：有点蓝
--  发布时间：2019/11/12 11:37:00
--  
窗口设计那里把允许编辑设置为true即可
--  作者：良才
--  发布时间：2019/11/12 11:52:00
--  

If e.Sender.Value IsNot Nothing Then
    SQL = "Se lect  教工编号,教工姓名 From {教工基本信息}"
    e.Form.controls("Table1").Table.Fill("Se lect  IIF(Right(学期,1) = \'1\',Left(学期,4) & \'年秋学期\',IIF(Right(学期,1) = \'2\',Left(学期,4)+1 & \'年春学期\',\'\')) As 学期,b.托管班级,b.学生编号,学生姓名,托管日期,托管状况,c.录入日期,c.录入人 As 教工编号,教工姓名 As 录入人 From (({学生基本信息} a Inner JOIN {托管缴费} b ON a.学生编号 = b.学生编号) LEFT JOIN (Sel ect 学生编号,托管日期,托管状况,录入人,录入日期 From {托管日况}  Where 托管日期 = #"& e.Sender.Value &"#) c ON b.学生编号 = c.学生编号) LEFT JOIN (" & SQL & ") h ON c.录入人 = h.教工编号 Where 开始日期 <= #"& e.Sender.Value &"# And 结束日期 >= #"& e.Sender.Value &"# ORDER BY b.托管班级,b.学生编号","Sale", True)
End If

是查询表，要用代码

[此贴子已经被作者于2019/11/12 11:55:22编辑过]
--  作者：有点蓝
--  发布时间：2019/11/12 12:08:00
--  
e.Form.controls("Table1").Table.Fill(xxx....
e.Form.controls("Table1").Table.AllowEdit =True
--  作者：良才
--  发布时间：2019/11/12 12:14:00
--  
谢谢
--  作者：良才
--  发布时间：2019/11/12 12:30:00
--  

老师我只允许编辑 托管状况，下面代码不对，求老师指教

e.Form.controls("Table1").Table.Cols("托管状况").AllowEdit =True

[此贴子已经被作者于2019/11/12 12:55:43编辑过]
--  作者：有点蓝
--  发布时间：2019/11/12 13:36:00
--  

[此贴子已经被作者于2019/11/12 13:35:48编辑过]
--  作者：有点蓝
--  发布时间：2019/11/12 13:38:00
--  
dim t as table = e.Form.controls("Table1").Table
t.Fill(xxx....
t.AllowEdit =True

for each c as col in t.cols
if  c.name <> "托管状况" then c.AllowEdit =false
next
--  作者：良才
--  发布时间：2019/11/12 14:36:00
--  
谢谢