主题：[讨论]年度统计

1、加入msgbox，看是否进入执行了代码；

 

2、例子发上来测试。

老师，好了。

老师，我要从进销存表中把筛选后的每个年度、来源、客户列的字段引用到统计表中，

 

Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.CommandText = "SELECT DISTINCT year(日期) as 年, 编号,数量 from {表C}"
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.datarows
    output.show(dr("年"))
Next

此主题相关图片如下：图像 2.png

参考5楼代码。不会写，上传具体例子测试。

老师，我要引用进销存的日期、来源、客户ID、客户名称列到统计表中。

Dim cmd As New SQLCommand
Dim dt As DataTable
Dim t As Table = Tables("进销存")
Dim filter = iif(t.filter > "", t.filter, "1=1")
cmd.CommandText = "SELECT DISTINCT year(日期) as 年, 来源,客户ID,客户名称 from {进销存} where " & filter
dt = cmd.ExecuteReader()
For Each dr As DataRow In dt.datarows
    Dim ndr As DataRow = DataTables("年度统计").addnew
    ndr("年份") = dr("年")
    ndr("来源") = dr("来源")
    ndr("客户名称") = dr("客户名称")
Next

老师，上面代码报错