窗体Afterload属性代码修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

红袍老师，我在窗体里加入了这个代码，但老提示不正确，帮忙修改修一下：

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

主题：窗体Afterload属性代码修改