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

可以把两个表统计的数据按照月份分别复制到统计表格吗

然后如果没有数据就默认为0

下载信息 [文件大小：下载次数： ]
点击浏览该文件:统计.table

统计表格预留价格和预留单价得到统计日期当月的最后一行，感谢感谢
图片点击可在新窗口打开查看

此主题相关图片如下：qq截图20161103112552.jpg

感谢感谢看懂了一下，只是这个时间怎么对应啊？感谢感谢

If fdr IsNot Nothing Then

ndr("订单_数量") = dt_dd.compute("sum(数量)", filter)

Else

ndr("数量") = 0

End If

感谢

感谢为什么之前没看见 fdr 声明再加上一个就不能用了呢

可以让其他几列没有数据的时候也默认为0吗

感谢感谢

[此贴子已经被作者于2016/11/3 12:16:06编辑过]

Dim minDate As Date = iif(minDD<minZC, minDD, minZC)

Dim maxDate As Date = iif(maxDD>maxZC, maxDD, maxZC)

这段是什么意思啊感谢感谢

Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"

这段日期是只的什么日期啊感谢感谢

[此贴子已经被作者于2016/11/3 18:20:45编辑过]

我可以在问一个问题吗？

是这样的，现在又添加了几个表，然后他们的日期列的名称都不同

就不知道那几项该怎么改了

感谢感谢

就是不知道红色的该怎么改感谢感谢

Dim dt_cwhz As DataTable = DataTables("财务汇总")

Dim dt_ddfb As DataTable = DataTables("订单附表")

Dim dt_hkjl As DataTable = DataTables("回款记录")

Dim dt_tzmx As DataTable = DataTables("投资明细")

Dim dt_xjmx As DataTable = DataTables("现金明细")

Dim dt_qkmx As DataTable = DataTables("欠款明细")

Dim dt_zczm As DataTable = DataTables("支出账目")

Dim dt_zcmx As DataTable = DataTables("支出明细")

dt_cwhz.DataRows.Clear

Dim minDDFN As Date = dt_ddfb.compute("min(业务往来_订单日期)")

Dim minHKJL As Date = dt_hkjl.compute("min(回款日期)")

Dim minTZMX As Date = dt_tzmx.compute("min(变动日期)")

Dim minXJMX As Date = dt_xjmx.compute("min(变动日期)")

Dim minQKMX As Date = dt_qkmx.compute("min(变动日期)")

Dim minZCZM As Date = dt_zczm.compute("min(支出日期)")

Dim minZCMX As Date = dt_zcmx.compute("min(变动日期)")

Dim maxDDFN As Date = dt_ddfb.compute("max(业务往来_订单日期)")

Dim maxHKJL As Date = dt_hkjl.compute("max(回款日期)")

Dim maxTZMX As Date = dt_tzmx.compute("max(变动日期)")

Dim maxXJMX As Date = dt_xjmx.compute("max(变动日期)")

Dim maxQKMX As Date = dt_qkmx.compute("max(变动日期)")

Dim maxZCZM As Date = dt_zczm.compute("max(支出日期)")

Dim maxZCMX As Date = dt_zcmx.compute("max(变动日期)")

Dim minDate As Date = iif(minDD<minZC, minDD, minZC)

Dim maxDate As Date = iif(maxDD>maxZC, maxDD, maxZC)

For i As Integer = minDate.Year To maxDate.Year

For j As Integer = 1 To 12

Dim ndr As DataRow = dt_cwhz.AddNew

Dim d As Date = new Date(i, j, 1)

Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"

[此贴子已经被作者于2016/11/3 19:47:45编辑过]

感谢

dt_xxxx 说未声明

看了一下是不是如果前面的改了后面也要跟个改啊

Dim dlst As new List(of Date)

Dim tns() As String = { "订单附表","回款记录" ,"投资明细","现金明细","欠款明细","支出账目","支出明细" } '其它表名自己加

Dim cls() As String = { "业务往来_订单日期","回款日期","变动日期","变动日期","变动日期","支出日期","变动日期" } '其它日期名自己加

For i As Integer = 0 To tns.Length - 1

dlst.Add(DataTables(tns(i)).Compute("min(" & cls(i) & ")"))

dlst.Add(DataTables(tns(i)).Compute("max(" & cls(i) & ")"))

Dim arr = dlst.ToArray

Array.Sort(arr)

Dim minDate As Date = arr(0)

Dim maxDate As Date = arr(arr.Length -1)

For i As Integer = minDate.Year To maxDate.Year

For j As Integer = 1 To 12

Dim ndr As DataRow = dt_cwhz.AddNew

Dim d As Date = new Date(i, j, 1)

Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"

ndr("年份") = i

ndr("月份") = j

ndr("经营_增加货款") = val(dt_ddfb.compute("sum(订单核算_采购合计)", filter))

ndr("经营_增加利润") = val(dt_ddfb.compute("sum(订单核算_单项利润)", filter))

ndr("经营_税费") = val(dt_ddfb.compute("sum(订单核算_税费)", filter))

ndr("经营_返点") = val(dt_ddfb.compute("sum(订单核算_合计返点)", filter))

ndr("经营_运费") = val(dt_ddfb.compute("sum(订单核算_运费)", filter))

Dim fdr As DataRow = dt_ddfb.Find(filter, "业务往来_订单日期 desc")

ndr("经营_回收货款") = val(dt_hkjl.compute("sum(收款金额)", filter))

Dim fdr As DataRow = dt_hkjl.Find(filter, "业务往来_订单日期 desc")

ndr("投资_增加金额") = val(dt_tzmx.compute("sum(再投资金)", filter))

ndr("投资_减少金额") = val(dt_tzmx.compute("sum(撤出资金)", filter))

fdr = dt_tzmx.Find(filter, "变动日期 desc")

If fdr IsNot Nothing Then

ndr("投资_在运资金") = fdr("可控资金")

Else

ndr("投资_在运资金") = 0

End If

ndr("可控_流入") = val(dt_xjmx.compute("sum(流入金额)", filter))

ndr("可控_流出") = val(dt_xjmx.compute("sum(流出金额)", filter))

fdr = dt_xjmx.Find(filter, "变动日期 desc")

If fdr IsNot Nothing Then

ndr("可控_可控资金") = fdr("可控金额")

Else

ndr("可控金额") = 0

End If

ndr("负债_对公增加") = val(dt_ddfb.compute("sum(订单核算_采购合计)", filter))

fdr = dt_ddfb.Find(filter, "变动日期 desc")

ndr("负债_对公减少") = val(dt_hkjl.compute("sum(付款金额)", filter))

fdr = dt_hkjl.Find(filter, "变动日期 desc")

ndr("负债_对私增加") = val(dt_qkmx.compute("sum(借款金额)", filter))

ndr("负债_对私减少") = val(dt_qkmx.compute("sum(还款金额)", filter))

fdr = dt_qkmx.Find(filter, "变动日期 desc")

If fdr IsNot Nothing Then

ndr("负债_对私欠款") = fdr("欠款合计")

Else

ndr("欠款合计") = 0

End If

ndr("支出_对公") = val(dt_zczm.compute("sum(合计价格)", filter))

fdr = dt_zczm.Find(filter, "变动日期 desc")

ndr("支出_对私") = val(dt_zcmx.compute("sum(支出金额)", filter))

fdr = dt_zcmx.Find(filter, "变动日期 desc")

感谢我改了很多次了就是没有改对，

是不是前面表名和时间都改成后面的

'Dim dlst As new List(of Date)

'Dim tns() As String = { "订单附表","回款记录" ,"投资明细","现金明细","欠款明细","支出账目","支出明细" } '其它表名自己加

'Dim cls() As String = { "业务往来_订单日期","回款日期","变动日期","变动日期","变动日期","支出日期","变动日期" } '其它日期名自己加

'For i As Integer = 0 To tns.Length - 1

'dlst.Add(DataTables(tns(i)).Compute("min(" & cls(i) & ")"))

'dlst.Add(DataTables(tns(i)).Compute("max(" & cls(i) & ")"))

'Next

然后声明是只的日期的吗？还是没整对麻烦你了

.NET Framework 版本：2.0.50727.5485

Foxtable 版本：2016.7.29.1

错误所在事件：窗口,窗口1,Button3,Click

详细错误信息：

未找到列 [日期]。

还是找不到日期列

Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"

这个日期列是什么意思是某个表的列吗？感谢感谢

[此贴子已经被作者于2016/11/3 22:00:12编辑过]

主题：统计转移