主题：求助 序号传递

向老师求助：

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

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

请大红袍老师帮我看看

错误所在事件：表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
放在公式里两处红字符时逗号

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

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

 

“表C”是数据表。

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

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

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

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

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

感谢大红袍老师问题解决了。

我还想增加点内容：

 

在CellButtonClick事件中将“表B”的“指标”列前3行文本添加到“表A”“指标”列的某单元格

请老师帮我写一下代码

“表B”的“指标”列前3行数据A,D,C 填到“表A”的“前3指标”列的某行（鼠标点击哪一行就填哪一行）

此主题相关图片如下：qq截图20151013160258.jpg

此主题相关图片如下：qq截图20151013161507.jpg

AfterEdit事件14楼代码

Dim str As String = Tables("表B").Rows(0)("指标") & "," & Tables("表B").Rows(1)("指标") & "," & Tables("表B").Rows(2)("指标")
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("指标")
    End If
    fdr("B排序") = dr("序号")
    fdr("前3指标") = str
Next

此主题相关图片如下：qq截图20151014103750.jpg

 

要求：只填“前3指标”列的某一个单元格，不是全列填