[求助]数据匹配填充 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]数据匹配填充

共有2601人关注过本帖树形打印复制链接主题：[求助]数据匹配填充

紫色幽魂

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：5405 威望：0 精华：0 注册：2015/1/23 0:31:00

[求助]数据匹配填充 发帖心情

Post By：2019/1/3 15:05:00 [只看该作者]

根据本表已有数据，从另一个表进行取值匹配，将数值写入到本表，下面这个应该怎么改

Dim f As New Filler

f.SourceTable = DataTables("无损_检测人员")

f.SourceCols = "检测室"

f.DataTable = DataTables("无损查询表_Table1")

f.DataCols = "部门"

f.Filter = "检测人员 = 姓名"

f.Fill()

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/3 15:47:00 [只看该作者]

参考

Dim dt As DataTable = DataTables("无损_检测人员")
Dim sCols() As String = {"检测室"}
Dim dCols() As String = {"部门"}
For Each dr As DataRow In dt.DataRows
    If DataTables("无损查询表_Table1").Find("检测人员 = '" & dr("姓名") & "'") Is Nothing Then
        Dim nr As DataRow = DataTables("员工").AddNew()
        For i As Integer =0 To sCols.Length -1
            nr(dCols(i)) = dr(sCols(i))
        Next
    End If
Next

紫色幽魂

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：5405 威望：0 精华：0 注册：2015/1/23 0:31:00

回复：（有点甜）参考 Dim dt As DataTable ... 发帖心情

Post By：2019/1/3 17:00:00 [只看该作者]

这样新增到另一个表里面了，我希望将另一个表的部门匹配到本表的部门里面，我这样改，数据全部变成一样的了

For Each drr As DataRow In DataTables("无损_检测人员").DataRows

If DataTables("无损查询表_Table1").Find("检测人员 = '" & drr("姓名") & "'") Is Nothing Then

For Each h As DataRow In DataTables("无损查询表_Table1").DataRows

h("部门") = drr("部门")

End If

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2019/1/3 17:03:00 [只看该作者]

Dim dt As DataTable = DataTables("无损_检测人员")
Dim sCols() As String = {"检测室"}
Dim dCols() As String = {"部门"}
For Each dr As DataRow In DataTables("无损查询表_Table1").DataRows
    Dim fdr = dt.Find("检测人员 = '" & dr("姓名") & "'")
    If fdr IsNot Nothing Then
        For i As Integer =0 To sCols.Length -1
            dr(dCols(i)) = fdr(sCols(i))
        Next
    End If
Next

紫色幽魂

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：683 积分：5405 威望：0 精华：0 注册：2015/1/23 0:31:00

回复：（有点甜）Dim dt As DataTable = DataTables("... 发帖心情

Post By：2019/1/3 17:18:00 [只看该作者]

意思还不是很理解，但是效果达成了，谢谢

下一主题 >> << 上一主题

主题：[求助]数据匹配填充