Foxtable(狐表)用户栏目专家坐堂 → 复制行


  共有2771人关注过本帖树形打印复制链接

主题:复制行

帅哥哟,离线,有人找我吗?
kaituozhe
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
复制行  发帖心情 Post By:2015/10/29 10:35:00 [只看该作者]

点击新增自动复制上一行或最后一行的数据,该怎么写代码


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/29 10:36:00 [只看该作者]


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By: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

 

在保存按钮中写了以上代码,点击该按钮保存时,如果物料编号已经存在,则提示重新,但是上述不能保存,希望能帮助我改一下


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/29 11:01:00 [只看该作者]

这是在窗口中一个button控件的chick事件中,该事件没有e.datarow属性,该怎么办

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/29 11:07:00 [只看该作者]

改成 Tables("表A").Current("物料编号")

 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2236 积分:15335 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2015/10/29 11:34:00 [只看该作者]

Tables("物料档案").Cancel = True 增加这句代码,想取消保存,可是不行呀,该怎么办?

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/29 11:37:00 [只看该作者]

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

 

 撤销修改,直接用 RejectChanges


 回到顶部