以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]列自动输入问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97387)

--  作者:jick0526
--  发布时间:2017/3/11 3:00:00
--  [求助]列自动输入问题
狐爸,请问下,如果B列和C列相加的值大于A列的值,那么D列会自动输入“已出售”这代码怎么写,谢谢!
--  作者:有点蓝
--  发布时间:2017/3/11 8:44:00
--  
参考:http://www.foxtable.com/webhelp/scr/0625.htm

DataColChanged事件

Select Case e.DataCol.Name
    Case "A列","B列","C列"
        If e.DataRow("B列") + e.DataRow("C列") > e.DataRow("A列") Then
            e.DataRow("D列") = "已出售"
        Else
            e.DataRow("D列") = Nothing
        End If
        
End Select