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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请教插入行

共有3209人关注过本帖树形打印复制链接主题：请教插入行

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

请教插入行

Post By：2015/8/24 9:47:00 [只看该作者]

袍老大：好！如实例。请问如何实现在表a中第一列为d的下面插入一行，表b的所有第一列为d的下面都插入一行？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.zip

大红袍

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

加好友

发短信

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

Post By：2015/8/24 11:37:00 [只看该作者]

DataRowAdded事件

Dim idx As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
If idx > 0 Then
    Dim r As Row = Tables(e.DataTable.Name).Rows(idx-1)
    idx = Tables("表B").FindRow("第一列 = '" & r("第一列") & "'")
    Do While idx > -1
        If idx = Tables("表B").Rows.Count - 1 Then
            Tables("表B").AddNew
        Else
            Tables("表B").Position = idx + 1
            Tables("表B").InsertNew
        End If

        idx = Tables("表B").FindRow("第一列 = '" & r("第一列") & "'", Tables("表B").Position+1)
    Loop
End If

hbhb

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

加好友

发短信

等级：狐神帖子：5061 积分：13092 威望：0 精华：0 注册：2014/5/15 21:34:00

Post By：2015/8/24 11:45:00 [只看该作者]

谢谢了，就凭这句代码，下午坚决割肉!

Hyphen

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

加好友

发短信

等级：狐神帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00

Post By：2015/8/24 12:09:00 [只看该作者]

反向遍历

Dim p As Integer = Tables(e.DataTable.Name).FindRow(e.DataRow)
If p > 0 Then
    Dim v = Tables(e.DataTable.Name).Rows(p-1)("第一列")

    Dim indexb = Tables("表B").Rows.Count - 1

    If Tables("表B").Rows(indexb)("第一列") = v Then
        Tables("表B").Rows.AddNew()
    End If

    For idxb As Integer = indexb-1 To 0 Step -1
        If Tables("表B").Rows(idxb)("第一列") = v Then
            Tables("表B").Position = idxb + 1
            Tables("表B").Rows.InsertNew()
        End If
    Next

End If