以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  关于单击排序的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=85041)

--  作者：scofields --  发布时间：2016/5/16 14:40:00 --  关于单击排序的问题 此主题相关图片如下：单击排序出现的问题.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

--  作者：大红袍 --  发布时间：2016/5/16 14:43:00 --   If Forms("销售计划录入2").Opened AndAlso e.NewRange.RowSel >= 0 Then

--  作者：scofields --  发布时间：2016/5/16 14:47:00 --  回复：（大红袍）If Forms("销售计划录入2").Opened A... 这句代码是什么意思啊？我有点看不懂

--  作者：大红袍 --  发布时间：2016/5/16 14:49:00 --   改第一句代码。

--  作者：scofields --  发布时间：2016/5/16 14:51:00 --   已改，完美解决，感谢红袍老师热心解决我的难题！