主题：禁止修改

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