- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- AfterSelChange 中的代码加入后就出错。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=12669)
-- 发布时间：2011/9/11 10:37:00
-- AfterSelChange 中的代码加入后就出错。
If e.OldRange.RowSel <> e.NewRange.RowSel Then
Dim r As Row = e.Table.Rows(e.OldRange.Rowsel,True)
r.Save
End If
系统之前能打开， 但在表属性：AfterSelChange 中加了上面的代码（代码是从帮助文件中复制的），想让换行后自动保存，再进系统就出错。
错误如下：
此主题相关图片如下：88.jpg
-- 发布时间：2011/9/11 11:17: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.Save() \'保存之
End If
End