1、我这样测试没问题
For Each c As object In e.Form.Controls
c.ReadOnly = BooleanEnum.True
Next
2、你加入msgbox测试一下,如
For Each c As object In e.Form.Controls
Dim st2 As String = c.BindingField
msgbox(st2 & " " & st2 <> Nothing)
If st2 <> Nothing Then
msgbox(c.name)
c.ReadOnly = BooleanEnum.true
End If
Next