关于多个联接列 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("费用明细附表"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("日期",DateGroupEnum.None)
bd1.Groups.AddDef("部门")
bd1.Groups.AddDef("成本类别")
bd1.Totals.AddDef("费用_本月")
bd1.Totals.AddDef("费用_累计")
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("利润表附表"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("日期",DateGroupEnum.None)
bd2.Groups.AddDef("部门")
bd2.Totals.AddDef("主营业务收入_本月")
bd2.Totals.AddDef("主营业务收入_累计")
dt2 = bd2.BuildDataSource()

Dim nms As String() = {"日期","部门"}
dt1.Combine(nms,dt2,nms)
dt1.Show("统计表1") '显示统计结果

Dim t As Table = Tables("统计表1")
Dim n1,n2 As Double
For Each r As Row In t.Rows
    If r.IsNull("主营业务收入_本月") = False Then
        n1 = r("主营业务收入_本月")
        n2 = r("主营业务收入_累计")
    Else
        r("主营业务收入_本月") = n1
        r("主营业务收入_累计") = n2
    End If
Next
t.DataTable.DataCols.Add("费用率_本月",Gettype(Double), "iif([主营业务收入_本月] = 0, null, IsNull([费用_本月],0) / [主营业务收入_本月])")
t.DataTable.DataCols.Add("费用率_累计",Gettype(Double), "iif([主营业务收入_累计] = 0, null, IsNull([费用_累计],0) / [主营业务收入_累计])")

t.DataTable.DataCols("费用率_本月").SetFormat("0.00%")
t.DataTable.DataCols("费用率_累计").SetFormat("0.00%")

篡改一下汇总行的值即可。

http://www.foxtable.com/help/topics/1911.htm

Dim nms As String() = {"日期","部门"}
dt1.Combine(nms,dt2,nms)
dt1.Show("统计表1") '显示统计结果

Dim t As Table = Tables("统计表1")
t.DataTable.DataCols.Add("费用率_本月",Gettype(Double))
t.DataTable.DataCols.Add("费用率_累计",Gettype(Double))

Dim n1,n2 As Double
For Each r As Row In t.Rows
    If r.IsNull("主营业务收入_本月") = False Then
        n1 = r("主营业务收入_本月")
        n2 = r("主营业务收入_累计")
    End If
    r("费用率_本月") = r("费用_本月") / n1
    r("费用率_累计") = r("费用_累计") / n2
Next

t.DataTable.DataCols("费用率_本月").SetFormat("0.00%")
t.DataTable.DataCols("费用率_累计").SetFormat("0.00%")

说明你表里面就是没有叫做所属日期的列。

不会做，上传例子。

Dim Filter As String = "1=1" '设置筛选条件
With e.Form.Controls("DW")
    If .Value IsNot Nothing Then
        Filter &= " and 所属单位 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("NF") '在前一筛选条件控制下设置第二项筛选条件,其内容根据第一列的变化而变化
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Dim d As Date = new Date(.value, 1, 1)
        Filter = Filter & "所属日期 >= #" & d & "# and 所属日期 < #" & d.AddYears(1) & "#"
    End If
End With

交叉统计表不能这样用。

如果要做，只能用代码处理

http://www.foxtable.com/help/topics/2394.htm

Dim y As Integer = e.Form.Controls("Textbox1").Text
Dim m As Integer = e.Form.Controls("Textbox2").Text

主题：关于多个联接列