AfterSelChange 中的代码加入后就出错。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → AfterSelChange 中的代码加入后就出错。

共有10299人关注过本帖树形打印复制链接主题：AfterSelChange 中的代码加入后就出错。

bad

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

加好友

发短信

等级：幼狐帖子：148 积分：1406 威望：0 精华：0 注册：2008/9/10 16:41:00

AfterSelChange 中的代码加入后就出错。 发帖心情

Post By：2011/9/11 10:37:00 [只看该作者]

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

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

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

下一主题 >> << 上一主题

主题：AfterSelChange 中的代码加入后就出错。