以文本方式查看主题 -  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp) --  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2) ----  [求助] 不能新增行，请问是哪里的问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=98357)

--  作者：静听枫雨 --  发布时间：2017/3/28 16:17:00 --  [求助] 不能新增行，请问是哪里的问题 窗口里的  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.foxdb 新增控件里放 这个代码  不能新增行，

--  作者：静听枫雨 --  发布时间：2017/3/28 16:21:00 --   找到问题了。把新增行放在倒数第二个End If上面就可以了 但还有另一个问题，就是当表里没有行的时候，不能新增。 [此贴子已经被作者于2017/3/28 16:24:10编辑过]

--  作者：有点色 --  发布时间：2017/3/28 17:10:00 --   Dim r As Row = Tables("订单表").Current If r IsNot Nothing Then     If r.IsNull("第一列")         MessageBox.Show("客户名称不能为空!")     Else         If DataTables("订单表").HasChanges Then             If MessageBox.Show("产品表已经被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then                 DataTables("订单表").Save()             End If         End If         Tables("订单表").AddNew()     End If Else     Tables("订单表").AddNew() End If

--  作者：静听枫雨 --  发布时间：2017/3/28 18:42:00 --   谢谢版主