以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  禁止修改  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=42621)
--  作者：方沈
--  发布时间：2013/11/17 15:03:00
--  禁止修改

我建一个Table1,设置代码

If e.Row("审批") = True Then \'如果此行已经审批了,则禁止修改
    e.Cancel = True
End If

这样Table1只要被审批的在表中就无法修改了,OK

但是在窗口中,还是能够被"勾选"的修改,勾选代码如下

请问Table的审批只要勾选了,那么下面的代码如何修改,就能实现审批的行"勾选"无效

 

If e.Sender.Gettype.name = "RadioButton" Then
    Dim t As Table = e.Form.Controls("Table1").Table
    If e.Sender.Parent.name = "GroupBox1" Then
        t.Current("房型") = e.Sender.text
    Else If e.Sender.Parent.name = "GroupBox2" Then
        t.Current("区域") = e.Sender.text
    Else If e.Sender.Parent.name = "GroupBox3" Then
        t.Current("面积区间") = e.Sender.text
    End If

End If
--  作者：有点甜
--  发布时间：2013/11/17 20:04:00
--  
If e.Sender.Gettype.name = "RadioButton" Then
    Dim t As Table = e.Form.Controls("Table1").Table
    If t.Current("审批") <> True Then
        If e.Sender.Parent.name = "GroupBox1" Then
            t.Current("房型") = e.Sender.text
        Else If e.Sender.Parent.name = "GroupBox2" Then
            t.Current("区域") = e.Sender.text
        Else If e.Sender.Parent.name = "GroupBox3" Then
            t.Current("面积区间") = e.Sender.text
        End If
    End If
End If