VB 对分组统计数据进行分析显示柱状图.rar

VB 对分组统计数据进行分析，并使用柱状图来显示，按仓库分组小计。下面是相关代码： 　　Private Sub Command1_Click() 　　 Adodc1.RecordSource = "select 仓库,现库存数量 from (SELECT sum(库存) as 现库存数量,仓库 from tb_kc group by 仓库)" 　　 Adodc1.Refresh 　　 Set MSChart1.DataSource = Adodc1 　　End Sub 　　Private Sub Command2_Click() 　　 End 　　End Sub 　　Private Sub Form_Load() 　　 Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" App.Path "\db_medicine.mdb;Persist Security Info=False" 　　End Sub