技術(shù) 點(diǎn)
- 技術(shù)
- 點(diǎn)
- V幣
- 點(diǎn)
- 積分
- 290
|
我在自己電腦上應(yīng)用系統(tǒng)沒(méi)有任何問(wèn)題,拷貝到另一臺(tái)電腦上出現(xiàn)aliimx.all 引用丟失問(wèn)題。在VB編輯器里重新引用后,系統(tǒng)可以運(yùn)行。但每當(dāng)點(diǎn)選一個(gè)窗體的窗體篩選時(shí)提示找不到項(xiàng)目,回頭察看該篩選引用的查詢發(fā)現(xiàn)sql內(nèi)容被清空,于是百思不得其解,請(qǐng)老師指點(diǎn),感激不盡~!!!該窗體篩選按鈕的vb編碼如下(感覺(jué)這里事情不大,是按照劉小軍老師的教程做的):
Private Sub 查詢_Click()
On Error GoTo Err_查詢_Click
Dim strWhere As String '定義條件字符串
strWhere = "" '設(shè)定初始值-空字符串
If Not IsNull(Me.輸入) Then
strWhere = strWhere & "([ID] like '*" & Me.輸入 & "*') or "
End If
If Not IsNull(Me.輸入) Then
strWhere = strWhere & "([姓名] like '*" & Me.輸入 & "*') and "
End If
If Len(strWhere) > 0 Then
strWhere = Left(strWhere, Len(strWhere) - 5)
End If
Debug.Print strWhere
Me.顯示.Form.Filter = strWhere
Me.顯示.Form.FilterOn = True
Exit_查詢_Click:
Exit Sub
Err_查詢_Click:
MsgBox Err.Description
Resume Exit_查詢_Click
End Sub
|
|