此主题相关图片如下：单击排序出现的问题.jpg
红袍老师，你看这个代码问题怎么解决是好？好烦人呢！
此主题相关图片如下：qq截图20160516142540.jpg
Afterchange里的代码为：
If Forms("销售计划录入2").Opened Then
Dim r As Row = e.Table.Rows(e.NewRange.RowSel)
If r("状态") ="已生效" Then
Forms("销售计划录入2").Controls("ComboBox3").Enabled = False
Forms("销售计划录入2").Controls("ComboBox1").Enabled = False
Forms("销售计划录入2").Controls("ComboBox2").Enabled = False
Forms("销售计划录入2").Controls("子客户").Enabled = False
Forms("销售计划录入2").Controls("数量").Enabled = False
Forms("销售计划录入2").Controls("textbox1").Enabled = False
Else
Forms("销售计划录入2").Controls("ComboBox3").Enabled = True
Forms("销售计划录入2").Controls("ComboBox1").Enabled = True
Forms("销售计划录入2").Controls("ComboBox2").Enabled = True
Forms("销售计划录入2").Controls("子客户").Enabled = True
Forms("销售计划录入2").Controls("数量").Enabled = True
Forms("销售计划录入2").Controls("textbox1").Enabled = True
End If
End If
加好友 
发短信
Post By：2016/5/16 14:40:00 [只看该作者]
