请教：
在选择不同行时，检查本行是否有空值。如果有空值，显示提示框，返回原来的行，空值单元格处于编辑状态。如果不为空，则锁定本行，选择新行。这段代码该怎么写？放到哪个表事件的过程里呢？
下面是我从帮助里面复制修改的代码，放在BeforeSelChange事件过程中。单击新增行，会弹出messagebox。求解！
+++++++++++++++++++++++++++++
'如果没有输入编号列内容,则禁止选择其它行:
If e.Table.Current IsNot Nothing Then '如果当前行是数据行,也就是Current属性不为空
If e.Table.Current.IsNull("A") Or e.Table.Current.IsNull("B") Or e.Table.Current.IsNull("C") Or e.Table.Current.IsNull("D") Or _
e.Table.Current.IsNull("E") Or e.Table.Current.IsNull("F") Or e.Table.Current.IsNull("G") Or e.Table.Current.IsNull("H") Or e.Table.Current.IsNull("I") Then '如果A列为空
If e.NewRange.RowSel <> e.OldRange.RowSel Then '而且即将选择另一行
e.Cancel = True '那么取消操作
messagebox.show("请检查各项是否有空值,请重新输入!","提示")
Tables("用户列表").Current.Locked = False
End If
Else
Tables("用户列表").Current.Locked =True
End If
End If
[此贴子已经被作者于2011-9-22 17:17:41编辑过]
加好友 
发短信
Post By：2011/9/22 17:08:00 [只看该作者]
