我不是很明白。 我的代码是这么写的 AdoData.Open "Select * From data Where JOB='" & Text1.Text & "' and 订单报废 is null and 订单取消 is null and 车间1接收 is not null and 车间1完成 is null", db, adOpenStatic, adLockOptimistic If AdoData.RecordCount = 0 Then AdoData.AddNew AdoData.Fields("车间1接收") = Now() List1.AddItem Text1.Text & "接收完成" AdoData.Update Else List1.AddItem Text1.Text & "重复输入" End If