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

问题一，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

问题二：你的兑换积分列是表达式列，不能直接赋值的。如果要手动赋值，你可以改成数据列。