以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助]换行后自动为上一行某列填入数据，请问这样写对吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=85000)

--  作者：taoxian --  发布时间：2016/5/15 11:16:00 --  [求助]换行后自动为上一行某列填入数据，请问这样写对吗？ 是否锁定是 逻辑列 If e.OldRange.RowSel <> e.NewRange.RowSel \'如果选择的是不同的行     If e.OldRange.RowSel >= 0 AndAlso e.OldRange.Rowsel < e.Table.Rows.Count Then \'而且原来选择的是一个有效的数据行         Dim r As Row = e.Table.Rows(e.OldRange.Rowsel) \'获得原来选择的行         r.DataRow("是否锁定") = True           r.Save() \'保存之     End If End

--  作者：zcgmxf --  发布时间：2016/5/15 16:59:00 --   是的

--  作者：taoxian --  发布时间：2016/5/15 19:28:00 --   保存是错误，而且还是根据提示修改的，还是不行

--  作者：大红袍 --  发布时间：2016/5/15 21:27:00 --   我测试没问题，提示什么，报什么错？

--  作者：taoxian --  发布时间：2016/5/16 10:21:00 --   此主题相关图片如下：qq截图20160516101915.jpg

--  作者：大红袍 --  发布时间：2016/5/16 10:22:00 --   最后一句，改成 End If

--  作者：taoxian --  发布时间：2016/5/16 10:53:00 --   搞定 谢谢