Private Sub Command1_Click()If Option1.Value = True ThenAdodc1.RecordSource = "select 經(jīng)手人,sum(訂單總金額)as 訂單總金額 ,format(訂單時(shí)間,'yyyy-mm') as 訂單時(shí)間 from A_xsjl " _& " where format(訂單時(shí)間,'yyyy-mm')= '2015-'+'" _+ Trim(Text1.Text) + "'group by 經(jīng)手人,format(訂單時(shí)間,'yyyy-mm')"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1ElseIf Option2.Value = True ThenAdodc1.RecordSource = "select 商品名稱(chēng),sum(數(shù)量)as 合計(jì)銷(xiāo)售數(shù)量 from A_xsjl group by 商品名稱(chēng) order by 2 desc"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfEnd IfEnd Sub