请问：如何实现如下功能
”数据检测表“中有”数据列“，'数据上限列"，"数据下限列"，”合格列“
当 ”数据列“的值 ＜'数据上限列"和＞"数据下限列"时，在”合格列“自动输入”1“
DataColChanged事件
Select Case e.DataCol.Name
Case "数据列","数据上限列","数据下限列"
Dim dr As DataRow = e.DataRow
If dr("数据"") > dr("数据下限列"") andalso dr("数据"") < dr("数据上限列"") Then
dr("合格列") = 1
Else
dr("合格列")=nothing
End If
End Select