主题：代码怎么不执行呢？

这2个列 "销售数量_片数","销售数量_破损片"值变化后才会触发事件

Select Case e.DataCol.Name
    Case "销售数量_片数","销售数量_破损片"
        Dim dr As DataRow = e.DataRow
        Dim kcdr As DataRow = DataTables("商品信息表").Find("产品ID = '" & e.DataRow("产品ID") & "'")
        Dim xssl As Double = dr("销售数量_片数") + dr("销售数量_破损片")
        If kcdr IsNot Nothing Then
        msgbox("xssl =" & xssl & ",库存_片数量=" & kcdr("库存_片数量")) '弹出看看是不是条件不符合
            If xssl > kcdr("库存_片数量") Then
                e.Cancel = True
                MessageBox.show("销售数量超过库存数量!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
            End If
        End If
End Select

调试技巧：http://www.foxtable.com/webhelp/scr/1485.htm

看执行到那一句代码