Private Sub command1_click()
  condstr = ""
   If Trim(Text1.Text) <> "" Then
     If condstr = "" Then
       condstr = "xinghao  LIKE '" + Trim(Text1.Text) + "& '"
     End If
   End If
   
   If Trim(Text2.Text) <> "" Then
     If condstr = "" Then
       condstr = "gongneng LIKE '" + Trim(Text2.Text) + "& '"
     Else
       condstr = condstr + "and gongneng LIKE '" + Trim(Text2.Text) + "& '"
     End If
   End If
   
   
   If Trim(Text3.Text) <> "" Then
     If condstr = "" Then
       condstr = "fengzhuang LIKE '" + Trim(Text3.Text) + "& '"
     Else
       condstr = condstr + "and fengzhuang LIKE '" + Trim(Text3.Text) + "& '"
     End If
   End If
   
   If Trim(Text4.Text) <> "" Then
     If condstr = " " Then
       condstr = "leibie LIKE  '" + Trim(Text4.Text) + "& ' "
     Else
       condstr = condstr + "and leibie LIKE '" + Trim(Text4.Text) + "& '"
     End If
   End If


  If condstr <> "" Then                    '已经写入条件
     Adodc1.RecordSource = "select * from erjiguan where " + condstr
     Adodc1.Refresh
     
  Else                                     '没有写入条件，返回原记录
     Adodc1.RecordSource = "select * from erjiguan "
     Adodc1.Refresh
   
  End If
  
  recs = Adodc1.Recordset.RecordCount
  
  If recs = 0 Then
    MsgBox "没有任何满足条件的器件", vbOKOnly, "信息提示"
  End If
  Call encomm

End Sub


表中有个元件型号为：1
我在xinghao的text1里面输入 1  之后点确定
却显示"没有任何满足条件的器件", secs还是为0
这是为什么呢？

那应该怎么写呢，小弟写不来啊
大哥，把like那句写一下啊~~~~~~~~~~
不胜感激

Private Sub command1_click()
  condstr = ""
   If Trim(Text1.Text) <> "" Then
     If condstr = "" Then
       condstr = "xinghao  LIKE '" & Trim(Text1.Text) & "% '"
     End If
   End If
   
   If Trim(Text2.Text) <> "" Then
     If condstr = "" Then
       condstr = "gongneng LIKE '" & Trim(Text2.Text) & "% '"
     Else
       condstr = condstr & "and gongneng LIKE '" & Trim(Text2.Text) & "% '"
     End If
   End If
   
   
   If Trim(Text3.Text) <> "" Then
     If condstr = "" Then
       condstr = "fengzhuang LIKE '" & Trim(Text3.Text) & "% '"
     Else
       condstr = condstr & "and fengzhuang LIKE '" & Trim(Text3.Text) & "% '"
     End If
   End If
   
   If Trim(Text4.Text) <> "" Then
     If condstr = " " Then
       condstr = "leibie LIKE  '" & Trim(Text4.Text) & "% ' "
     Else
       condstr = condstr & "and leibie LIKE '" & Trim(Text4.Text) & "% '"
     End If
   End If

现在是这样了，还是显示没有原件，recs还是0

[ 本帖最后由 xywnhy 于 2010-4-15 10:47 编辑 ]

谢谢版主，这次是不管查出东西来没 都会提示“没有器件”了


[ 本帖最后由 xywnhy 于 2010-4-15 13:05 编辑 ]

谢谢版主 已经调试成功了