Foxtable(狐表)用户栏目专家坐堂 → 按条件条件合并表格


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

主题:按条件条件合并表格

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/16 9:05:00 [显示全部帖子]

参考代码

 

select 公司, 收款金额, 0 as 发货金额 from {收款} union all select 公司, 0, 发货金额 from {发货}

 

http://www.foxtable.com/webhelp/scr/2321.htm

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/16 11:13:00 [显示全部帖子]

可以的。重新load查询表后,生成余额,如

 

DataTables("入库与支付").Load

For Each h As String In  DataTables("入库与支付").GetValues("供应商")
    Dim drs As List(Of DataRow) = DataTables("入库与支付").Select("供应商='" & h & "'","日期")
    If drs.Count > 0 Then
        drs(0)("余额") = drs(0)("入库金额") - drs(0)("支付金额")
        If drs.Count > 1 Then
            For i As Integer = 1 To drs.Count - 1
                drs(i)("余额") = drs(i-1)("余额") + drs(i)("入库金额") - drs(i)("支付金额")
            Next
        End If
    End If
Next

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/1/25 22:36:00 [显示全部帖子]

具体什么问题,请详细说明,上传例子测试。

 回到顶部