Foxtable(狐表)用户栏目专家坐堂 → 数据更新,修改原数据不增加新记录


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

主题:数据更新,修改原数据不增加新记录

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


加好友 发短信
等级:童狐 帖子:226 积分:2499 威望:0 精华:0 注册:2013/8/20 18:47:00
数据更新,修改原数据不增加新记录  发帖心情 Post By:2021/5/27 8:26:00 [只看该作者]

If e.DataCol.Name = "入库" Then
    Dim nma() As String = {"入库","气名称","站点","日期","充装量","仓库"} 'A表数据来源列
    Dim nmb() As String = {"本日入库","气名称","站点","日期","本日出库","仓库"} 'B表数据接收列
    Dim dr As DataRow = DataTables("日统计").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

上面代码只要表A数据有变化表B就会增加一条记录,现在是修改表A原来的行,表B不增加记录,在原来的记录上更新新的数据,这些代码改怎么写

请老师们指导一下,谢谢

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/27 9:40:00 [只看该作者]

If e.DataCol.Name = "入库" Then
    Dim nma() As String = {"入库","气名称","站点","日期","充装量","仓库"} 'A表数据来源列
    Dim nmb() As String = {"本日入库","气名称","站点","日期","本日出库","仓库"} 'B表数据接收列
Dim dr As DataRow = DataTables("日统计").find("编号=‘“ & e.DataRow("编号") & ”’")
if dr is nothing then
 dr  = DataTables("日统计").AddNew
end if
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
    Next
End If

自己把编号改为其它关联列

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


加好友 发短信
等级:童狐 帖子:226 积分:2499 威望:0 精华:0 注册:2013/8/20 18:47:00
  发帖心情 Post By:2021/5/27 11:44:00 [只看该作者]

老师
不行,又是增加了一条记录


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/5/27 12:08:00 [只看该作者]

说明查询条件设置不正确

 回到顶部