共2 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：AfterSelChange 中的代码加入后就出错。
1楼
bad 发表于：2011/9/11 10:37:00If 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楼
狐狸爸爸 发表于：2011/9/11 11:17:00If
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
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
共2 条记录, 每页显示 10 条, 页签:
[1]