以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求教 老师  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114764)
--  作者：sgkyzfh
--  发布时间：2018/2/21 20:24:00
--  求教 老师
首先问老师过年好
我有这样的一个问题，有A、B、C、D四个字段 ，我的目的是，当录入A的数值减去B的数值大于24时，在C字段 显示 “数据错误1”；当录入A的数值减去B的数值大于0时，在C字段 显示 “数据错误2”；当录入A的数值减去B的数值大于0小于24时，在C字段 显示 “数据错误3“。
请老是指点。
--  作者：有点甜
--  发布时间：2018/2/21 21:00:00
--  

如果用表达式，这样写

 

iif(a-b>=24, \'错误1\',iif(a-b>0, \'错误3\', \'错误2\'))
--  作者：sgkyzfh
--  发布时间：2018/2/21 21:33:00
--  
老师，我想在数据事件写成代码。请再费心。
--  作者：有点甜
--  发布时间：2018/2/21 21:36:00
--  

datacolchanged事件

 

Select Case e.DataCol.name
    Case "A", "B"
        Dim n As Double = e.DataRow("a") - e.DataRow("b")
        If n >= 24 Then
            e.DataRow("c") = "错误1"
        ElseIf n > 0 Then
            e.DataRow("c") = "错误3"
        Else
            e.DataRow("c") = "错误2"
        End If
End Select