主题：求助 序号传递

向老师求助：

A表，B表有相同的“指标”列，A表中有一列“B排序”

怎样将B表“序号”列按对应的“指标”填入A表“B排序”列中

请大红袍老师帮我看看

For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("员工").Find("身份证号码 = '" & dr("身份证号码") & "'") Is Nothing Then
        Dim nr As DataRow = DataTables("员工").AddNew()
        nr("第一列") = dr("第一列")
    End If
Next

错误所在事件：表A,AfterSort
详细错误信息：
未找到列 [指标]。

For Each dr As DataRow In DataTables("表A").DataRows
    If DataTables("表B").Find("指标 = '" & dr("指标") & "'") Is Nothing Then
        Dim nr As DataRow = DataTables("表B").AddNew()
        nr("序号") = dr("序号")
    End If
Next

 If DataTables("表B").Find("指标 = '" & dr("指标") & "'") Is Nothing Then
放在公式里两处红字符时逗号

说明你表B或者表A没有指标列。不会做，上传例子。

两表都有相同的“指标”列（字符）

你表B肯定没有 指标 列。

上传实例请老师帮我看看：

 

“表C”是数据表。

“表B”是计算表，双击行头计算数据，将“表C”列名填入“表B” “指标”列，按数据列排序后得到“序号”列数据。

“表A”是分析表，“指标”列取自“表C”列名（与“表B” “指标”列相同）。

要求：将“表B”的“序号”列数据按对应的“指标”填入“表A”的“B排序”列。

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

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

For Each dr As DataRow In DataTables("表B").DataRows
    Dim fdr As DataRow = DataTables("表A").Find("指标 = '" & dr("指标") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表A").AddNew()
        fdr("指标") = dr("指标")
        fdr("B排序") = dr("序号")
    Else
        fdr("B排序") = dr("序号")
    End If
Next