以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  IF问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=128482)
--  作者：jick0526
--  发布时间：2018/12/7 22:09:00
--  IF问题
老师，当A列和B列的任何位置，当两列有相同字符时，那么对应A列的C列上会自动输入出售，代码要怎么写，谢谢！
 A列   B列   C列  
   20      出售
   30   20   出售
   55   30   
   42      
--  作者：有点蓝
--  发布时间：2018/12/7 22:34:00
--  
If e.DataCol.Name = "A列" AndAlso e.NewValue > "" Then 
    Dim dr As DataRow = e.DataTable.Find("B列=\'" & e.NewValue & "\'")
    e.DataRow("C列") = iif(dr Is Nothing,"","出售")
End If