主题：如何把狐表里面的多个表关联到一个表里面统计

 如果要连接多个表，参考

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

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

 如果要按月份分组，那就使用分组统计

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

不会做，那就把你项目上传上来看看 http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78

 请使用ie浏览器访问论坛，并上传项目。

贴出开发者密码

 参考

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

参考下面代码，意思是把本月的费用统计出来，看懂代码

Dim d As Date = Date.Today
d = new Date(d.Year, d.Month, 1)
Dim filter As String = ""
Dim dt As DataTable = DataTables("费用汇总表")
Dim ndr As DataRow = dt.AddNew
ndr("日期") = Date.today

filter = "发工资时间 >= #" & d & "# and 发工资时间 < #" & d.AddMonths(1) & "#"
Dim sum1 As Double = DataTables("员工工资").compute("sum(员工应发工资)", filter)
ndr("应付工资合计") = sum1

filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
sum1 = DataTables("员工日常费用").compute("sum(合计)", filter)
ndr("日常费用合计") = sum1

 你可以单独做一个按钮计算，或者写到切换表的事件去

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

参考代码

Dim m As Date = Date.Today

Dim d As Date = new Date(m.Year, m.Month, 1)
Dim filter As String = ""
Dim dt As DataTable = DataTables("费用汇总表")
Dim ndr As DataRow = dt.Find("日期 >= #" & d & "# and 日期 < #" & d.addmonths(1) & "#")
If ndr Is Nothing Then
    ndr = dt.AddNew
End If
ndr("日期") = m

filter = "发工资时间 >= #" & d & "# and 发工资时间 < #" & d.AddMonths(1) & "#"
Dim sum1 As Double = DataTables("员工工资").compute("sum(员工应发工资)", filter)
ndr("应付工资合计") = sum1

filter = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
sum1 = DataTables("员工日常费用").compute("sum(合计)", filter)
ndr("日常费用合计") = sum1