sqlstr1 = "select sum(装配时间) from 基元 where 工人= '" & Combo1.Text & "'" Adodc1.RecordSource = sqlstr1 Adodc1.Refresh lbl7.caption = Adodc1.Recordset
