Foxtable(狐表)用户栏目专家坐堂 → 求助,后台更新数据触发表事件


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

主题:求助,后台更新数据触发表事件

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


加好友 发短信
等级:六尾狐 帖子:1207 积分:7224 威望:0 精华:0 注册:2013/3/4 18:02:00
求助,后台更新数据触发表事件  发帖心情 Post By: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编辑过]

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


加好友 发短信
等级:六尾狐 帖子:1207 积分:7224 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/5/13 12:00:00 [显示全部帖子]

以下是引用Bin在2013-5-13 11:59:00的发言:
DataTables("表A").DataCols("第一列").RaiseDataColChanged

我要更新的表是在后台啊


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


加好友 发短信
等级:六尾狐 帖子:1207 积分:7224 威望:0 精华:0 注册:2013/3/4 18:02:00
  发帖心情 Post By:2013/5/13 12:09:00 [显示全部帖子]

以下是引用Bin在2013-5-13 12:05:00的发言:

Datatable就是后台表啊.

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

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

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


 回到顶部