主题：[求助]在窗口中通过筛选画饼状图要怎么做啊？？

此主题相关图片如下：销售分析.png

请问怎样通过窗口中那些筛选条件来筛选出符合条件的销售记录并做成饼状图呢？

If e.Node.Level = 2 Then '如果单击的是第二层节点

    Dim tr As Row

    Dim dr As DataRow = e.Node.DataRow '获取生成此节点的DataRow

    If e.Form.DropTable IsNot Nothing Then '如果下拉窗口是从表中打开

        tr = e.Form.DropTable.Current '获取此表的当前行

    Else '如果下拉窗口是通过DropdownBox打开

        Dim nm As String = e.Form.DropDownBox.BindingField '获取绑定的字段

        nm = nm.Split(".")(0) '获取绑定的表名

        tr = Tables(nm).Current '获取此表的当前行

    End If

    tr("产品名称") = dr("中文产品名称")

    e.Form.DropDownBox.Value = tr("产品名称") '这行不是多余的,省略此行,无法在表中正常使用此下拉窗口输入数据.

   Tables("商品信息表").Filter = ""

 Tables("中文产品名称").Position = Tables("中文产品名称").findRow(dr)

    e.Form.DropDownBox.CloseDropdown()

End If