主题：求助在单价列里输入的销售单价低于进价列里的数值时，系统出现提示的办法

DataColChanged事件

If e.DataCol.Name = "销售单价" Then
    Dim dr As DataRow = e.DataRow
    If dr("销售单价") < dr("进价") Then
        MessageBox.Show("提示")
    End If
End If