以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助,后台更新数据触发表事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=33079)
--  作者：晕了快扶我
--  发布时间：2013/5/13 11:21:00
--  求助,后台更新数据触发表事件

表｛采购订单子表｝的DataColChanged 事件

If e.DataCol.Name = "单价"
    Dim s As String = e.DataRow.GetParentRow("采购订单主表")("供应商名称")
    Dim cmd As New SQLCommand
    cmd.C
    cmd.CommandText = "select * from{产品资料孙表} where 料号 = \'" & e.DataRow("料号") & "\' And 供应商 = \'" & s & "\'"
    Dim dt As DataTable = cmd.ExecuteReader(True)
    For Each dr As DataRow In dt.DataRows
        dr("单价") = e.NewValue
    Next
End If

表｛产品资料｝的 DataColChanged 事件

Select Case e.DataCol.Name

Case "单价"
        e.DataRow("未税单价") = e.NewValue
        e.DataRow.GetParentRow("产品资料子表")("均价")  = Tables("产品资料孙表").Compute("avg(未税单价)","料号 =\'" & e.DataRow.GetParentRow("产品资料子表")("料号") & "\'")
        If e.DataRow("未税单价") > e.DataRow.GetParentRow("产品资料子表")("均价")  Then
            e.DataRow.SetError("未税单价", "单价高于平均进价!")
        Else
            e.DataRow.SetError("未税单价","")
        End If
End Select

 

表｛采购订单子表｝的DataColChanged 事件 里我想触发｛产品资料孙表｝的DataColchanged事件来更新｛产品资料孙表｝后台数据要怎么办呢？

[此贴子已经被作者于2013-5-13 11:21:40编辑过]
--  作者：Bin
--  发布时间：2013/5/13 11:59:00
--  
DataTables("表A").DataCols("第一列").RaiseDataColChanged
--  作者：晕了快扶我
--  发布时间：2013/5/13 12:00:00
--  
以下是引用Bin在2013-5-13 11:59:00的发言：
DataTables("表A").DataCols("第一列").RaiseDataColChanged

我要更新的表是在后台啊
--  作者：Bin
--  发布时间：2013/5/13 12:05:00
--  
以下是引用晕了快扶我在2013-5-13 12:00:00的发言：

我要更新的表是在后台啊

Datatable就是后台表啊.

除非你说得是没加载的表,存在外部数据源里面的.

那根本不可能,都没加载何来的事件.换个思路实现吧.
--  作者：晕了快扶我
--  发布时间：2013/5/13 12:09:00
--  
以下是引用Bin在2013-5-13 12:05:00的发言：

Datatable就是后台表啊.

除非你说得是没加载的表,存在外部数据源里面的.

那根本不可能,都没加载何来的事件.换个思路实现吧.

嗯，是没加载进来的，seterror的事件的话用CMD的方法能不能更新到呢？