以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制行  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=76442)
--  作者：kaituozhe
--  发布时间：2015/10/29 10:35:00
--  复制行

点击新增自动复制上一行或最后一行的数据，该怎么写代码
--  作者：大红袍
--  发布时间：2015/10/29 10:36:00
--  

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

 
--  作者：kaituozhe
--  发布时间：2015/10/29 10:55:00
--  

Dim dr As DataRow =DataTables("物料档案").find("物料编号 = \'" & e.DataRow("物料编号") & "\'")
If dr IsNot Nothing Then
MessageBox.show("你输入的物料代码已经存在,请重新输入","提示")
Else
DataTables("物料档案").save
End If

 

在保存按钮中写了以上代码，点击该按钮保存时，如果物料编号已经存在，则提示重新，但是上述不能保存，希望能帮助我改一下
--  作者：大红袍
--  发布时间：2015/10/29 10:57:00
--  

排除当前行

 

Dim dr As DataRow =DataTables("物料档案").find("物料编号 = \'" & e.DataRow("物料编号") & "\' and _Identify <> " & e.datarow("_Identify"))
If dr IsNot Nothing Then
    MessageBox.show("你输入的物料代码已经存在,请重新输入","提示")
Else
    DataTables("物料档案").save
End If


 
--  作者：kaituozhe
--  发布时间：2015/10/29 11:01:00
--  
这是在窗口中一个button控件的chick事件中，该事件没有e.datarow属性，该怎么办
--  作者：大红袍
--  发布时间：2015/10/29 11:07:00
--  
改成 Tables("表A").Current("物料编号")
--  作者：kaituozhe
--  发布时间：2015/10/29 11:34:00
--  
Tables("物料档案").Cancel = True 增加这句代码，想取消保存，可是不行呀，该怎么办？
--  作者：大红袍
--  发布时间：2015/10/29 11:37:00
--  

 呃，你不保存，就不会save啊。

 

 撤销修改，直接用 RejectChanges