专家坐堂-当删除表中所有的行后再执行新增一行时出错Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  当删除表中所有的行后再执行新增一行时出错  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=43469)

--  作者：kgdwxfmqj520
--  发布时间：2013/12/8 9:55:00
--  当删除表中所有的行后再执行新增一行时出错

\'新增
With Tables("库存")
If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
库存_库存编辑_状态="新增"
.AddNew()
.Cols("当前库存").AllowEdit= True
\' Forms("库存编辑").Controls("TextBox1").BindingField = "" \'"库存.货品编码"

Else
MessageBox.Show("该记录已经被修改,若想保存结果请先<保存修改>,否则请<撤销修改>! ")

End If

End With
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
t1.Select

--  作者：kgdwxfmqj520
--  发布时间：2013/12/8 10:04:00
--
提示
此主题相关图片如下：201312722542643627.jpg

--  作者：kgdwxfmqj520
--  发布时间：2013/12/8 13:09:00
--
2211

--  作者：kgdwxfmqj520
--  发布时间：2013/12/8 19:20:00
--
没有人回。。

--  作者：程兴刚
--  发布时间：2013/12/8 19:44:00
--

\' 库存_库存编辑_状态="新增"

行首为什么舍不得加单引号？

--  作者：有点甜
--  发布时间：2013/12/8 19:50:00
--
改一下

\'新增
With Tables("库存")
if .Current isnot nothing then
If .Current.DataRow.RowState = DataRowState.Unchanged Then \'如果当前行未曾修改
库存_库存编辑_状态="新增"
.AddNew()
.Cols("当前库存").AllowEdit= True
\' Forms("库存编辑").Controls("TextBox1").BindingField = "" \'"库存.货品编码"

Else
MessageBox.Show("该记录已经被修改,若想保存结果请先<保存修改>,否则请<撤销修改>! ")

End If
end if

End With
Dim t1 As WinForm.TextBox = e.Form.Controls("TextBox1")
t1.Select