- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为何部分代码不起作用? (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=171293)
-- 发布时间：2021/8/25 13:42:00
-- 为何部分代码不起作用?
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
-- 发布时间：2021/8/25 13:49:00
--
哪个代码不起作用？
-- 发布时间：2021/8/25 15:17:00
--
e.Form.Controls("新增产品").Enabled = True
-- 发布时间：2021/8/25 15:20:00
--
msgbox(e.Form.Controls("新增产品").Enabled)
e.Form.Controls("新增产品").Enabled = True
msgbox(e.Form.Controls("新增产品").Enabled)
一般是有其它代码影响了