以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]在指定行插入行  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67499)
--  作者：moxuejiahui
--  发布时间：2015/4/24 21:48:00
--  [求助]在指定行插入行
我现在用的是FOR   next遍历整个表，想在符合条件的行下面插入一行的话要怎么写代码呢，我现在用的代码是在行上面插入的行
--  作者：黄训良
--  发布时间：2015/4/24 22:00:00
--  

一般不主张插入行，

 

 

With Tables("表A")

    Dim r As Integer
    r = .FindRow("[公司名称] Like \'%湛江%\'", .Position + 1, True ) 
    If r >= 0 Then 
        .Position = r + 1

           .InsertNew()  
    End If
End With
[此贴子已经被作者于2015/4/24 22:03:38编辑过]