Private Sub Combo0_Change() Dim 供应商ID 供应商ID = Combo0.Value
Dim sql As String, rs As Recordset sql = "select count(*) as cnt from [采购订单] where [供应商 ID]=" & 供应商ID '查询的SQL语句。 Set rs = CurrentDb.OpenRecordset(sql) Text4.SetFocus Text4.Text = rs.Fields(0) End Sub追问