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

datacolchanging中，如下代码：

 

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 xssl > kcdr("库存_片数量") Then
            e.Cancel = True
            MessageBox.show("销售数量超过库存数量!","提示",MessageBoxButtons.OK,MessageBoxIcon.Warning)
        End If

End Select

 

怎么代码不执行呢？

这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

看执行到那一句代码

建议你写到DataColChanged事件吧。

 

如果写到ing事件，要这样改的

 

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
        If e.DataCol.name = "销售数量_片数" Then
            xssl = e.newvalue + dr("销售数量_破损片")
        ElseIf e.DataCol.name = "销售数量_破损片" then
            xssl = dr("销售数量_片数") + e.newvalue
        End If
        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