专家坐堂-自动判断Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自动判断  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196212)

--  作者：fangshen
--  发布时间：2025/4/9 12:31:00
--  自动判断
请问：如何实现如下功能

”数据检测表“中有”数据列“，\'数据上限列"，"数据下限列"，”合格列“
当 ”数据列“的值＜\'数据上限列"和＞"数据下限列"时，在”合格列“自动输入”1“

--  作者：有点蓝
--  发布时间：2025/4/9 13:47:00
--
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