If Tables("补货补货.qt").Current.IsNull("shangcheng")=True '判断是否不符合验证要求
MessageBox.Show("商城为空,请输入或者删除行") '提示用户
Dim Index As Integer
Index = Tables("补货补货.qt").FindRow(Row) '找出此行在销售数据Table中的位置
If Index > -1 Then '如果找到此行
Tables("补货补货.qt").Position = Index '将焦点定位到此行
End If
MainTable = Tables("补货补货.qt") '选择销售数据表作为主表.
e.Cancel = True '取消存盘
Return
End If
写在 窗口事件里的 ,红色部分应该怎么改?