主题：今天没问问题有点郁闷

大师：如实例，请问如何把表b中的数据提取写入表a?同名的最好按上面的组别自动标记后查找写入。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目5.zip

能不能不这样设计表啊？数据不规范啊

处理表B

 

Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("表B").Select("姓名 is not null", "_Sortkey")
    If dr.IsNull("工资") Then
        pdr = dr
    Else
        dr("第三列") = pdr("姓名")
    End If
Next

 

查询表A

 

Dim pdr As DataRow = Nothing
For Each dr As DataRow In DataTables("表A").Select("姓名 is not null", "_Sortkey")
    If dr("姓名") Like "第*" Then
        pdr = dr
    Else
        Dim fdr As DataRow = DataTables("表B").Find("姓名 = '" & dr("姓名") & "' and 第三列 = '" & pdr("姓名") & "'")
        If fdr IsNot Nothing
            dr("第三列") = pdr("姓名")
            dr("工资") = fdr("工资")
        End If
    End If
Next

谢谢！就是一些傻货的不规范数据难处理！