主题：[求助]代码运行问题

If e.DataCol.Name = "单价" Then '如果正在输入的是单价列
    If e.newvalue IsNot Nothing Then '如果已经输入内容

        Dim dr As DataRow = DataTables("采购明细").Find("[型号] = '" & e.Datarow("型号") & "'")
        Dim v As Double = Val(e.newValue)
        If v <> dr("单价")  Then '将输入的内容与以往同名产品价格做比较.
            MessageBox.Show("此价格与历往价格有差异,确定要修改,请在价格较低的型号后加"特价"两字,否则系统将无法区分!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Information)           
            e.Cancel = True '则取消输入
        End If
    End If
End If

此段代码在DATACOLCHANGING中，现在价格中输入与原来一样的价格，他也说价格有差异，为什么

  是不是你的采购明细表，同一个型号，有多行的内容？不唯一导致了查找到的不是对应的行？

采购明细表中同一型号是有多行内容，分布记录着不同时期不同批次的采购明细

正是因为同一型号有不同时期不同批次的产品，数据多了，我要在每次输入同一型号时找以前采购过的价格信息，做判断。

 那你查找的时候，要查的，是那一次的采购单价？最近一次？还是怎样？必须要有一个规则的。

 如果要查最后一次，代码这样写

Dim dr As DataRow = DataTables("采购明细").Find("[型号] = '" & e.Datarow("型号") & "'", "采购日期 desc")

这的确是个问题，我再考虑下