以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  跨表自动更新问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=74276)

--  作者:水青树叶
--  发布时间: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

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


--  作者:大红袍
--  发布时间: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


--  作者:水青树叶
--  发布时间:2015/9/7 16:11:00
--  
谢谢