以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  表一中列表与表二中列表有相同值时,在表一中其它列自动出现表二中对应的值  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=151520)

--  作者:jinhy811
--  发布时间:2020/6/26 15:37:00
--  表一中列表与表二中列表有相同值时,在表一中其它列自动出现表二中对应的值

请教大神们:

如何实现:表一中列表与表二中列表有相同值时,在表一中其它列自动出现表二中对应的值


--  作者:linyunu
--  发布时间:2020/6/26 17:22:00
--  
参考
表一DataColChanged事件
If e.DataCol.Name = "第一列" Then
    Dim dr As DataRow = DataTables("表二").Find("第一列 = \'" & e.DataRow("第一列") & "\'") 
    If dr IsNot Nothing Then
        e.DataRow("第二列") = dr("第二列")
        e.DataRow("第三列") = dr("第三列")
    End With
End If

--  作者:jinhy811
--  发布时间:2022/12/1 11:26:00
--  
 谢谢