主题：限制输入值

Select Case e.DataCol.name

Case "开piao数量","订货数量","已开piao数量"

 

If e.DataRow.IsNull("已开piao数量") = False AndAlso e.DataRow("开piao数量")> (e.DataRow("订货数量")-e.DataRow("已开piao数量"))

 

    

MessageBox.Show("总开piao数量已超过订货数量!")  

e.Cancel = True '取消变动.

End If

If  e.DataRow.IsNull("已开piao数量") = True AndAlso e.DataRow("开piao数量")> e.DataRow("订货数量")

 

    

MessageBox.Show("开piao数量已超过订货数量!")  

e.Cancel = True '取消变动.

End If

 

 

End Select

我在datacolchanging中加了上面的代码，想实现总开piao数量不能大于订货数量。其中已开piao数量是动态汇总的，订货数量是固定值。开piao数量是这张fa piao的开piao数量。结果还是可以输入大于订货数量的开piao数量，但一旦输入后，一更改就提示了，而且无法更改。

DataColChanged事件

 

Select Case e.DataCol.name
    Case "开piao数量","订货数量","已开piao数量"
        If e.DataRow.IsNull("已开piao数量") = False AndAlso e.DataRow("开piao数量")> (e.DataRow("订货数量")-e.DataRow("已开piao数量"))
            MessageBox.Show("总开piao数量已超过订货数量!")
            e.DataRow(e.DataCol.name) = e.OldValue
        End If
       
        If e.DataRow.IsNull("已开piao数量") = True AndAlso e.DataRow("开piao数量")> e.DataRow("订货数量")
            MessageBox.Show("开piao数量已超过订货数量!")
            e.DataRow(e.DataCol.name) = e.OldValue
        End If
End Select