主题：请教插入行

 

参考帮助文档去做，最基本的内容。

帮助帮不助，

李白再世

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

点击浏览该文件:管理项目3.foxdb

暂时不看，闭眼睛断臂。真有点疼！

走，不玩了，妈的个巴子的，消费去。否则不能抚平我的创伤！至少喝5瓶啤酒。

袍老师，这里我也顺便请教一下，如果在表a中第一列为d的下面插入一行，那只在表b的所有第一列为d的最后一个d下面插入一行代码又如何写呢？谢谢！（传简单项目

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

点击浏览该文件:插入行.table

）

回复17楼

 

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)
    Dim fdr As DataRow = DataTables("表B").Find("第一列 = '" & r("第一列") & "'", "_Identify desc")
    If fdr IsNot Nothing Then
        idx = Tables("表B").FindRow(fdr)
        If idx > -1
            If idx = Tables("表B").Rows.Count - 1 Then
                Tables("表B").AddNew
            Else
                Tables("表B").Position = idx + 1
                Tables("表B").InsertNew
            End If
        End If
    End If
End If

OK,谢谢老师！