以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助] 不能新增行,请问是哪里的问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98357) |
||||
-- 作者:静听枫雨 -- 发布时间:2017/3/28 16:17:00 -- [求助] 不能新增行,请问是哪里的问题 窗口里的
新增控件里放 这个代码 不能新增行, |
||||
-- 作者:静听枫雨 -- 发布时间: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 -- 谢谢版主 |