【新手入门】之十七：浅谈列表框的使用

zyz218

学习一下

zyz218

列表框查询

Private Sub cmderq_Click()
On Error GoTo Err_cmderq_Click

    Dim strWhere As String
    strWhere = ""
   
    If Not IsNull(Me.Text1) Then
        strWhere = strWhere & "([yearmonth] like '" & Me.Text1 & "') AND "
    End If
    If Not IsNull(Me.Text2) Then
        strWhere = strWhere & "([codeno] like '*" & Me.Text2 & "*') AND "
    End If
    If Not IsNull(Me.Text3) Then
        strWhere = strWhere & "([area] like '" & Me.Text3 & "') AND "
    End If
    If Not IsNull(Me.Text4) Then
        strWhere = strWhere & "([place] like '*" & Me.Text4 & "*') AND "
    End If
    If Not IsNull(Me.Text5) Then
        strWhere = strWhere & "([customer] like '*" & Me.Text5 & "*') AND "
    End If
    If Len(strWhere) > 0 Then
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
   
    strWhere = "select * from stock_q where " & strWhere
    Me.List1.RowSource = strWhere
    Me.List1.Requery
  
Exit_cmderq_Click:
    Exit Sub

Err_cmderq_Click:
    MsgBox Err.Description
    Resume Exit_cmderq_Click
End Sub

chenyingfengsx

学习一下

goto2008

khmkhm

谢谢分享，学习一下

lqylbh

学习一下哈

cjf78

这个有价值,我正好需要,感谢分享!

liu13420568423

好东西

130050007

good

zczc123

1111