以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助：有条件填充到数据表中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132509)
--  作者：cxmxjwlmq
--  发布时间：2019/3/23 14:49:00
--  求助：有条件填充到数据表中

老师们：我想从统计表2中，将操作人一行的数据，填充到人员名单中姓名相同的一行中

 

Dim f As New  Filler
f.SourceTable = DataTables("统计表2") \'指定数据来源
f.SourceCols = "操作人,不良描述_1"  \'指定数据来源列
f.DataTable = DataTables("人员名单") \'指定数据接收表
f.DataCols = "姓名,一月"  \'指定数据接收列
f.Fill() \'填充数据

 

 

 

这组代码只能作到填充，但不能达到我想要的效果，请老师指教！

谢谢
--  作者：有点蓝
--  发布时间：2019/3/23 15:06:00
--  
For Each dr1 As DataRow In DataTables("统计表2").DataRows
    Dim dr2 As DataRow = DataTables("人员名单").Find("姓名=\'" & dr1("操作人") & "\'")
    If dr2 IsNot Nothing 
    dr2("一月") = dr1("不良描述_1")
    Next
Next
--  作者：cxmxjwlmq
--  发布时间：2019/3/23 15:34:00
--  
谢谢蓝老师指教！