在月份,2)='09'"
         Case 4
           sql = "right(所在月份,2)='10' or right(所在月份,2)='11' or right(所在月份,2)='12'"
       End Select
       Select Case myIndex
        Case 0
          Adodc1.RecordSource = "select 产品编号,品名规格,单位,sum(月销量) as 销售总数 from 销售表 where left(所在月份,4)='" + txtYear + "'and " & sql & " group by 产品编号,品名规格,单位 order by 销售总数"
          Adodc1.Refresh
          With MSHFlexGrid1
             Set .DataSource = Adodc1
            .ColWidth(0) = 200
            .ColWidth(1) = 2000
            .ColWidth(2) = 3000
            .ColWidth(3) = 1200
            .ColWidth(4) = 1400
          End With
        Case 1
          Adodc1.RecordSource = "select 产品编号,品名规格,单位,sum(月销售额) as 销售总额 from 销售表 where left(所在月份,4)='" + txtYear + "'and " & sql & " group by 产品编号,品名规格,单位 order by 销售总额"
          Adodc1.Refresh
          r1 = Adodc1.Recordset.RecordCount
          With MSHFlexGrid1
              Set .DataSource = Adodc1
              For i = 1 To r1
                  .TextMatrix(i, 4) = Format(.TextMatrix(i, 4), "##,##0.00")
              Next i
              .ColWidth(0) = 200
            .ColWidth(1) = 2000
            .ColWidth(2) = 3000
            .ColWidth(3) = 1200
            .ColWidth(4) = 1400
          End With
        Case 2
          Adodc1.RecordSource = "select 产品编号,品名规格,单位,sum(月销量) as 销售总数,sum(月销售额) as 销售总额 from 销售表 where left(所在月份,4)>='" + txtYear + "'and " & sql & " group by 产品编号,品名规格,单位 order by 销售总数,销售总额"