"select * from 库存表 where " & condition & "='" & cmbname.text & "'" 你说的这个没少啊？怎么办

Question

Private Sub CmbName_Click() Dim condition condition = Trim(CmbField.Text) If Adodc1.Recordset.Fields(condition).Type = 202 Then Adodc1.RecordSource = "select * from 库存表 " & condition & "='" & CmbName.Text & "'" Else Adodc1.RecordSource = "select * from 库存表 " & condition & "=" & CmbName.Text End If Adodc1.Refresh TxtNo.Text = Adodc1.Recordset.Fields("货物编号") TxtName.Text = Adodc1.Recordset.Fields("货物名称") TxtStorenum.Text = Adodc1.Recordset.Fields("库存量") TxtUnit.Text = Adodc1.Recordset.Fields("单位") End Sub

Answer 1

If Adodc1.Recordset.Fields(condition).Type = 202 Then Adodc1.RecordSource = "select * from 库存表 " & condition & "='" & CmbName.Text & "'" Else Adodc1.RecordSource = "select * from 库存表 " & condition & "=" & CmbName.Text End If Adodc1的RecordSource 属性里, 库存表后面少了一个where,看到没...