Foxtable(狐表)用户栏目专家坐堂 → [求助]关联表的小计


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

主题:[求助]关联表的小计

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/25 8:32:00 [显示全部帖子]

差不多的,在输出关联表数据后,在加上小计及合计的代码即可

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/25 8:54:00 [显示全部帖子]

意思是获取关联表里的不同产品?比如

Dim pds As List(Of String) = tbl.DataTable.GetValues("产品","编号=‘“ & tables("承包合同").current("编号") & ”’")



 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/25 14:25:00 [显示全部帖子]

代码在哪?

 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110798 积分:563928 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/25 14:41:00 [显示全部帖子]

    Rows = Tables("承包合同").Rows(i).DataRow.GetChildRows("分包合同")

dim sum as double = 0

    For r As Integer = 0 To Rows.Count - 1

        rt.Cells(r+1,0).Text = rows(r)("分包合同编号")

        rt.Cells(r+1,1).Text = rows(r)("分包合同名称")

        rt.Cells(r+1,2).Text = rows(r)("分包单位")

        rt.Cells(r+1,3).Text = rows(r)("分包合同额元")

        rt.Cells(r+1,4).Text = rows(r)("分包结算值元")

        rt.Cells(r+1,5).Text = rows(r)("已付款元")

        rt.Cells(r+1,6).Text = rows(r)("付款率")

        rt.Cells(r+1,7).Text = rows(r)("联系人")

        rt.Cells(r+1,8).Text = rows(r)("质保日期")

 sum = sum + rows(r)("已付款元")

           Next

rt.Cells(Rows.Count+1,0).Text = "已付款元 小计:" & sum

 doc.Body.Children.Add(rt)


 回到顶部