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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助序号传递

共有2730人关注过本帖树形打印复制链接主题：求助序号传递

青岛hhh

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

加好友

发短信

等级：婴狐帖子：76 积分：804 威望：0 精华：0 注册：2015/2/13 9:06:00

Post By：2015/10/13 14:11:00 [只看该作者]

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

我还想增加点内容：

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

请老师帮我写一下代码

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/13 15:00:00 [只看该作者]

前行3行文本指什么，截图，实例说明

青岛hhh

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

加好友

发短信

等级：婴狐帖子：76 积分：804 威望：0 精华：0 注册：2015/2/13 9:06:00

Post By：2015/10/13 16:06:00 [只看该作者]

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

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20151013160258.jpg

[此贴子已经被作者于2015/10/13 16:18:09编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/13 16:12:00 [只看该作者]

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

青岛hhh

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

加好友

发短信

等级：婴狐帖子：76 积分：804 威望：0 精华：0 注册：2015/2/13 9:06:00

Post By：2015/10/13 16:16:00 [只看该作者]

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

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/13 16:21:00 [只看该作者]

Dim drs As List(Of DataRow) = DataTables("表B").Select("", "序号")
Dim i As Integer = 0
For Each dr As DataRow In drs
    Dim fdr As DataRow = DataTables("表A").Find("指标 = '" & dr("指标") & "'")
    If fdr Is Nothing Then
        fdr = DataTables("表A").AddNew()
        fdr("指标") = dr("指标")
    End If
    i+=1
    Dim str As String = ""
    If i >= 3 Then
        str = drs(i-3)("指标") & "," & drs(i-2)("指标") & "," & drs(i-1)("指标")
    End If
    fdr("B排序") = dr("序号")
    fdr("前3指标") = str
Next