主题：点击“增加一行”，当该行没有数据输入的时候，再点“增加一行”将不能增加，并提示请输入内容后再增加，代码如何写？

可以用这个事件的：

http://www.foxtable.com/help/topics/0629.htm

Dim r As Row = Tables("表名").Current
If r.isnull("列名1")  orelse  r.isnull("列名2")  orelse r.isnull("列名3") then
    Messagebox.Show("不能为空，请输入数据！","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    return
End If
Tables("表名").AddNew() '增加一行

参考：

http://www.foxtable.com/help/topics/0595.htm