Foxtable(狐表)用户栏目专家坐堂 → [求助] 代码计算后数据更新问题?


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

主题:[求助] 代码计算后数据更新问题?

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


加好友 发短信
等级:童狐 帖子:242 积分:2235 威望:0 精华:0 注册:2011/8/16 22:33:00
[求助] 代码计算后数据更新问题?  发帖心情 Post By: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


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


加好友 发短信 一级勋章
等级:超级版主 帖子:7258 积分:40773 威望:0 精华:16 注册:2008/8/31 23:23:00
  发帖心情 Post By:2013/1/2 19:37:00 [只看该作者]

最后加上一句:

DataTables("织机生产").load


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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


 回到顶部