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

For Each s As String In t.DataTable.GetValues("支出类型", "支出类型 is not null")

Dim sum = t.DataTable.compute("sum(支出金额)", "支出类型='" & s & "'")

改成

Dim d As Date = new Date(Date.Today.Year, Date.Today.Month, 1)

For Each s As String In t.DataTable.GetValues("支出类型", "支出类型 is not null and 支出日期 >= #" & d & "# and 支出日期 < #" & d.AddMonths(1) & "#")

Dim sum = t.DataTable.compute("sum(支出金额)", "支出类型='" & s & "' and 支出日期 >= #" & d & "# and 支出日期 < #" & d.AddMonths(1) & "#")

主题：圆饼图表生成