Foxtable(狐表)用户栏目专家坐堂 → 跨表自动更新问题


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

主题:跨表自动更新问题

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


加好友 发短信
等级:幼狐 帖子:93 积分:1083 威望:0 精华:0 注册:2013/12/11 11:10:00
跨表自动更新问题  发帖心情 Post By:2015/9/7 15:59:00 [只看该作者]

请教一个问题:

跨表自动更新,如帮助中的如下代码:

If e.DataCol.Name = "单价"
   
Dim Filter As String = "[品名] = '" & e.DataRow("品名") & "'"
   
Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
   
For Each dr As DataRow In drs
       
dr("单价") = e.DataRow("单价")
    Next

End
If

这样的代码会更新后台数据吗,还是只更新已加载的数据?


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


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

更新已加载的数据,更新后台数据这样写

 

If e.DataCol.Name = "单价"
    Dim Filter As String = "[品名] = '" & e.DataRow("品名") & "'"
    Dim drs As List(Of DataRow) = DataTables("订单").SQLSelect(Filter)
    For Each dr As DataRow In drs
        dr("单价") = e.DataRow("单价")
        dr.save
    Next
    Dim drs As List(Of DataRow) = DataTables("订单").Select(Filter)
    For Each dr As DataRow In drs
        dr("单价") = e.DataRow("单价")
    Next
End If


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


加好友 发短信
等级:幼狐 帖子:93 积分:1083 威望:0 精华:0 注册:2013/12/11 11:10:00
  发帖心情 Post By:2015/9/7 16:11:00 [只看该作者]

谢谢

 回到顶部