作者Mafty ()
看板Visual_Basic
标题[VB6 ] 可以帮我看一下吗
时间Sun Jun 3 06:48:34 2007
Dim conditionString As String
conditionString = Text1.Text
If Combo1.Text = "书名" Then
Select Case Combo2
Case "="
rs.filter = Combo1.Text & Combo2.Text & "'" & conditionString & "'"
Case "Like"
rs.filter = "书名 Like '***'"
End Select
Else
rs.filter = Combo1.Text & Combo2.Text & conditionString
End If
Like的地方是那里出错了??总是没法查出东西来
可是改成rs.filter = "书名 Like '*山*'"就能查出资料里有山的资料
所以如果不写死要怎麽作??
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.112.185.182