主题：[求助]这段代码在哪儿写，写的对么？

问题一：

在客户兑换礼品过程中，出现当前积分不够（比如剩余积分50分，但是该礼品兑换需要100分），提示:"客户当前积分不足,是否兑换?","请确认!",

选择“否”删除该记录，“是”继续兑换。代码如下，是否正确？这段代码放在那儿？请指教！

If Tables("客户资料").Current("剩余积分") < 0 Then
       If   MessageBox.Show("客户当前积分不足,是否兑换?","请确认!",MessageBoxButtons.YesNo)=DialogResult.No Then
          Tables("客户资料.礼品兑换明细").Current.Delete
     End If
End If

我上传了例子，我求助的问题是：当在兑换礼品过程中，发现剩余积分不足时，给出提示是否继续兑换。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:寿春路理财积分测试.table

问题二：

在增加理财记录过程中经常出现下面的错误，是什么原因？

.NET Framework 版本：2.0.50727.5485
Foxtable 版本：2015.12.22.1
错误所在事件：表，客户资料， DataColChanged
详细错误信息：
调用的目标发生了异常。
列“兑换积分”为只读。

在客户兑换礼品过程中，出现当前积分不够（比如剩余积分50分，但是该礼品兑换需要100分），提示:"客户当前积分不足,是否兑换?","请确认!",

选择“否”删除该记录，“是”继续兑换。代码如下，是否正确？这段代码放在那儿？请指教！

If Tables("客户资料").Current("剩余积分") < 0 Then
       If   MessageBox.Show("客户当前积分不足,是否兑换?","请确认!",MessageBoxButtons.YesNo)=DialogResult.No Then
          Tables("客户资料.礼品兑换明细").Current.Delete
     End If
End If

我上传了例子，我求助的问题是：当在兑换礼品过程中，发现剩余积分不足时，给出提示是否继续兑换。

问题一，datacolchanged事件

Select Case e.DataCol.name
    Case "礼品名称", "兑换数量"
        Dim pdr As DataRow = e.DataRow.GetParentRow("客户资料")
        If pdr Is Nothing Then
            msgbox("用户不存在")
        Else
            If pdr("剩余积分")-e.DataRow("兑换积分") < 0 Then
                If MessageBox.Show("客户当前积分不足,是否兑换?","请确认!",MessageBoxButtons.YesNo)=DialogResult.No Then
                    e.DataRow.Delete
                End If
            End If
        End If
End Select