主题：跨表自动更新问题

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

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