一般不主张插入行，
With Tables("表A")
Dim r As Integer r = .FindRow("[公司名称] Like '%湛江%'", .Position + 1, True ) If r >= 0 Then .Position = r + 1
.InsertNew() End IfEnd With
加好友 
发短信
Post By：2015/4/24 22:00:00 [显示全部帖子]
