主题：为何部分代码不起作用?

 Dim 状态 As String = dr("状态")

    If 状态.Contains("编辑中") Then

        messagebox.show(状态 & "A")

        e.Form.Controls("编辑").Enabled = True

        e.Form.Controls("编辑完成").Enabled = True

        e.Form.Controls("新增产品").Enabled = True

        e.Form.Controls("产品明细保存").Enabled = True

        messagebox.show(状态 & "B")

        e.Form.Controls("产品明细修改").Enabled = True

        e.Form.Controls("附件窗口").Enabled = True

        messagebox.show(状态 & "C")

        e.Form.Controls("新增产品").Enabled = False

        e.Form.Controls("新增产品").Enabled = True

        e.Form.Controls("新增产品").ReadOnly = False

        e.Form.Controls("编辑中").Visible = True

        ' 新增产品

End If