主题：限制输入值

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