- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 窗体Afterload属性代码修改 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=84694)
-- 发布时间：2016/5/7 21:58:00
-- 窗体Afterload属性代码修改
红袍老师，我在窗体里加入了这个代码，但老提示不正确，帮忙修改修一下：
Dim da As DataTable=DataTable("JHS")
Dim dr As DataRow=e.DataRow
e.DataCol.name="状态"
If dr("状态")="已生效" Then
Forms("销售计划录入").Controls("ComboBox3").Enabled = False
Forms("销售计划录入").Controls("ComboBox1").Enabled = False
Forms("销售计划录入").Controls("ComboBox2").Enabled = False
Forms("销售计划录入").Controls("子客户").Enabled = False
Forms("销售计划录入").Controls("数量").Enabled = False
Forms("销售计划录入").Controls("textbox1").Enabled = False
Else
Forms("销售计划录入").Controls("ComboBox3").Enabled = True
Forms("销售计划录入").Controls("ComboBox1").Enabled = True
Forms("销售计划录入").Controls("ComboBox2").Enabled = True
Forms("销售计划录入").Controls("子客户").Enabled = True
Forms("销售计划录入").Controls("数量").Enabled = True
Forms("销售计划录入").Controls("textbox1").Enabled = True
-- 发布时间：2016/5/8 11:41:00
--
Dim da As DataTable=DataTable("JHS")
Dim dr As DataRow=e.DataRow
e.DataCol.name="状态"
If dr("状态")="已生效" Then
------------------改成下面这样--------------------
Dim t As Table = Table("JHS")
Dim cr As Row = t.Current
If cr("状态") = "已生效" Then
-- 发布时间：2016/5/8 15:32:00
--
红袍老师，这段代码老提示“Dim t As Table = Table("JHS")”是个错误的代码，说Table is a type and cannot used as an expression,你看这个怎么解决？
-- 发布时间：2016/5/8 15:38:00
--
Dim t As Table = Tables("JHS")
Dim cr As Row = t.Current
If cr("状态") = "已生效" Then
-- 发布时间：2016/5/8 15:39:00
--
此主题相关图片如下：1.jpg
-- 发布时间：2016/5/8 15:41:00
--
看4楼，改成Tables
-- 发布时间：2016/5/8 16:14:00
--
噢噢，看错了，谢谢红袍老师热心指导，完美解决