以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助 序号传递  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=75604)
--  作者：青岛hhh
--  发布时间：2015/10/11 10:39:00
--  求助 序号传递

向老师求助：

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

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

[此贴子已经被作者于2015/10/11 11:59:51编辑过]
--  作者：青岛hhh
--  发布时间：2015/10/11 12:38:00
--  
请大红袍老师帮我看看
--  作者：大红袍
--  发布时间：2015/10/11 12:42:00
--  

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
--  作者：青岛hhh
--  发布时间：2015/10/11 13:13:00
--  

错误所在事件：表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
--  作者：青岛hhh
--  发布时间：2015/10/11 13:21:00
--  
 If DataTables("表B").Find("指标 = \'" & dr("指标") & "\'") Is Nothing Then
放在公式里两处红字符时逗号
--  作者：大红袍
--  发布时间：2015/10/11 14:50:00
--  
说明你表B或者表A没有指标列。不会做，上传例子。
--  作者：青岛hhh
--  发布时间：2015/10/11 16:05:00
--  
两表都有相同的“指标”列（字符）
--  作者：大红袍
--  发布时间：2015/10/11 16:17:00
--  

你表B肯定没有 指标 列。
--  作者：青岛hhh
--  发布时间：2015/10/13 10:25:00
--  

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

 

“表C”是数据表。

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

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

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

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1_201510131023.zip
--  作者：大红袍
--  发布时间：2015/10/13 10:41:00
--  
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