以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  AfterSelChange 中的代码加入后就出错。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=12669)

--  作者:bad
--  发布时间: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