以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 表一中列表与表二中列表有相同值时,在表一中其它列自动出现表二中对应的值 (http://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 -- 谢谢 |