主题：取消存盘问题

If e.DataRow("入账") = False Then '判断是否不符合验证要求

    MessageBox.Show("你最好确认一下,是不是确定这样收款?确认清楚了请点击'入账'!如果确认有问题,请做退款处理!","存盘失败",MessageBoxButtons.OK,MessageBoxIcon.Exclamation) '提示用户

    Dim Index As Integer

   Index = Tables("收款记录").FindRow(e.DataRow) '找出此行在销售数据Table中的位置

    If Index > -1 Then '如果找到此行

        Tables("收款记录").Position = Index '将焦点定位到此行

    End If

    MainTable = Tables("收款记录") '选择销售数据表作为主表.

    e.Cancel = True '取消存盘

End If