Foxtable(狐表)用户栏目专家坐堂 → Q:我想跨表统计数据,这个要怎么做比较好。


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

主题:Q:我想跨表统计数据,这个要怎么做比较好。

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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/8/5 17:34:00 [显示全部帖子]

呵呵,问题要具体一点哦,否则想帮你一把,也无从下手啊


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/8/6 8:14:00 [显示全部帖子]

用三楼的方法就行了,简单可靠。

如果你想自动更新,可以在MainTablechanged事件设置代码:

If MainTable.Name = "备料跟踪登记表" Then
    Dim dt_beiliao As DataTable = DataTables("备料跟踪登记表")
    Dim dt_ruku As DataTable = DataTables("每日入库")
    Dim datas As List(Of String()) = dt_ruku.GetUniqueValues("", "备料单号", "物料代码")
    For Each data As String() In datas
        Dim filter As String = "备料单号 = '" & data(0) & "' and 物料代码 = '" & data(1) & "'"
        Dim fdr As DataRow = dt_beiliao.Find(filter)
        If fdr Is Nothing Then
            fdr = dt_beiliao.AddNew
            fdr("备料单号") = data(0)
            fdr("物料代码") = data(1)
        End If
        fdr("入库数量") = dt_ruku.Compute("sum(入库数量)", filter)
    Next
End If


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2013/8/8 9:57:00 [显示全部帖子]

以下是引用HP002在2013-8-8 9:13:00的发言:

@有点甜,两个条件的没有问题,一个条件的怎么设计代码呢。 比如按【物料代码】汇总入库数量。这个按钮代码怎么设计

 

呵呵,同学,你会和并两个条件,不会合并一个条件?

 

If MainTable.Name = "备料跟踪登记表" Then
    Dim dt_beiliao As DataTable = DataTables("备料跟踪登记表")
    Dim dt_ruku As DataTable = DataTables("每日入库")
    Dim datas As List(Of String) = dt_ruku.GetUniqueValues("",  "物料代码")
    For Each data As String In datas
        Dim filter As String = "物料代码 = '" & data & "'"
        Dim fdr As DataRow = dt_beiliao.Find(filter)
        If fdr Is Nothing Then
            fdr = dt_beiliao.AddNew
            fdr("物料代码") = data
        End If
        fdr("入库数量") = dt_ruku.Compute("sum(入库数量)", filter)
    Next
End If


 回到顶部