[求助]换行后自动为上一行某列填入数据，请问这样写对吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]换行后自动为上一行某列填入数据，请问这样写对吗？

共有2504人关注过本帖平板打印复制链接主题：[求助]换行后自动为上一行某列填入数据，请问这样写对吗？

taoxian

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：115 积分：1056 威望：0 精华：0 注册：2016/4/10 10:25:00

[求助]换行后自动为上一行某列填入数据，请问这样写对吗？ 发帖心情

Post By：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

主题：[求助]换行后自动为上一行某列填入数据，请问这样写对吗？