以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  自动输入问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103424)
--  作者：jick0526
--  发布时间：2017/7/7 17:34:00
--  自动输入问题
老师，请问下，当表B的C列不为空，且表B的A列等于表A的A列时，表A的A列会自动输入“出售”
--  作者：jick0526
--  发布时间：2017/7/7 17:36:00
--  
老师，上面的写错，是当表B的C列不为空，且表B的A列等于表A的A列时，表A的D列会自动输入“出售”
--  作者：有点甜
--  发布时间：2017/7/7 17:41:00
--  

表B的DataColChanged事件

 

Select Case e.DataCol.name
    Case "A", "C"
        Dim pdr As DataRow = DataTables("表A").find("A= \'" & e.DataRow("A") & "\'")
        If pdr IsNot Nothing Then
            If e.DataRow.IsNull("C") = False Then
                pdr("D") = "出售"
            Else
                pdr("D") = Nothing
               
            End If
        End If
End Select