主题：[求助]代码有问题，请帮助

If e.Text > "" Then '如果已经输入内容

改成

If e.DataRow.IsNull("单价") = False Then

下面代码写到Datacolchanging事件

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