以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 代码计算后数据更新问题？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=27491)
--  作者：lsf5138
--  发布时间：2013/1/2 19:35:00
--  [求助] 代码计算后数据更新问题？

当前表 的 改码_改入重量列发生变化后 织机生产表 就重新统计

请问 如何让SQL数据库也实时更新了？

 

If e.DataCol.Name = "改码_改入重量" Then
    Dim pr As DataRow
    pr = DataTables("织机生产").Find("生产条码 = \'" & e.DataRow("旧生产条码") & "\'")
    If pr IsNot Nothing Then
        DataTables("织机生产").DataCols("生产条码").RaiseDataColChanged(pr) \'重算原产品的销售数量和金额
    End If
End If
--  作者：程兴刚
--  发布时间：2013/1/2 19:37:00
--  

最后加上一句：

DataTables("织机生产").load
--  作者：狐狸爸爸
--  发布时间：2013/1/4 11:34:00
--  

If e.DataCol.Name = "改码_改入重量" Then
    Dim pr As DataRow
    pr = DataTables("织机生产").Find("生产条码 = \'" & e.DataRow("旧生产条码") & "\'")
    If pr IsNot Nothing Then
        DataTables("织机生产").DataCols("生产条码").RaiseDataColChanged(pr) \'重算原产品的销售数量和金额
        pr.Save()
    End If
End If