主题：判断行与增加行的代码

自己做个新增行的按钮，代码为：

Dim i As Integer
i = Tables("表A").Find("",0,"第一列",True,True,False)
If i >= 0 Then
    Tables("表A").Position = i
Else
    Tables("表A").AddNew()
End If

参考帮助：

http://www.foxtable.net/help/topics/0552.htm