主题：请教老师，Sender不大了解怎么使用

If Tables("包材申购窗体_包材申请表").Current IsNot Nothing Then
    Dim ctl As WinForm.Control = e.Sender
    If ctl.name <> "商品ID" AndAlso ctl.name <> "品牌" Then
        Dim r As Row = Tables("包材申购窗体_包材申请表").Current
        If r("采购进度") = "申请中" Then
            ctl.ReadOnly = BooleanEnum.False '允许编辑
        Else
            ctl.ReadOnly = BooleanEnum.True '禁止编辑
        End If
    End If
End If

谢谢甜老师，如果控件名比较多怎么简化下代码，如

Dim cs() As String = {"id", "品牌", "查询商品ID"}

If array.IndexOf(cs, ctl.name) < 0 Then

这个代码好，我项目中也是好多像3楼哪样的代码，有时，要判断的字段多了，代码好长的，刚试了下甜老师的代码，确实简洁。