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

    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)