根据关键字查询

绿色心情小天使

1、物料查询：清单为本张表

2、窗体已做在工作薄中

3、根据关键字查询所匹配的显示在窗体中。

   关键字查找所在列：单号、材料编码、项目、品名、规格、到货数量、备注。

715机柜5套（24年）.rar (39.57 KB, 下载次数: 13)

2024-5-19 11:00 上传

点击文件名下载附件

shiruiqiang

如果需要进一步操作的话，建议listbox改为listview

feilanga

...............

sxbjzjf110

楼主试一下。。。。。

Qs18

Dim arr '2024/0519

Private Sub CommandButton2_Click() '全部按钮
全部数据
End Sub

Private Sub CommandButton5_Click() '查找按钮
Dim i, s, t
t = Me.TextBox1.Value
Me.ListBox1.Clear
For i = 2 To UBound(arr)
    s = arr(i, 2) & arr(i, 4) & arr(i, 5) & arr(i, 6) & arr(i, 7) & arr(i, 9) & arr(i, 10)
    If s Like "*" & t & "*" Then
        Me.ListBox1.AddItem arr(i, 2)
        Me.ListBox1.List(ListBox1.ListCount - 1, 1) = arr(i, 4)
        Me.ListBox1.List(ListBox1.ListCount - 1, 2) = arr(i, 5)
        Me.ListBox1.List(ListBox1.ListCount - 1, 3) = arr(i, 6)
        
        Me.ListBox1.List(ListBox1.ListCount - 1, 4) = arr(i, 7)
        Me.ListBox1.List(ListBox1.ListCount - 1, 5) = arr(i, 9)
        Me.ListBox1.List(ListBox1.ListCount - 1, 6) = arr(i, 10)
    End If
Next
End Sub

Private Sub CommandButton6_Click() '退出按钮
Unload Me
End Sub


Private Sub UserForm_Initialize()
Dim i
Me.ListBox1.ColumnCount = 7
arr = Sheet2.Range("a1").CurrentRegion.Value
全部数据
End Sub
Sub 全部数据()
Application.ScreenUpdating = False
Me.ListBox1.Clear
For i = 2 To UBound(arr)
    Me.ListBox1.AddItem arr(i, 2)
    Me.ListBox1.List(ListBox1.ListCount - 1, 1) = arr(i, 4)
    Me.ListBox1.List(ListBox1.ListCount - 1, 2) = arr(i, 5)
    Me.ListBox1.List(ListBox1.ListCount - 1, 3) = arr(i, 6)
   
    Me.ListBox1.List(ListBox1.ListCount - 1, 4) = arr(i, 7)
    Me.ListBox1.List(ListBox1.ListCount - 1, 5) = arr(i, 9)
    Me.ListBox1.List(ListBox1.ListCount - 1, 6) = arr(i, 10)
Next
Application.ScreenUpdating = True
End Sub

绿色心情小天使

sxbjzjf110 发表于 2024-5-19 11:36
楼主试一下。。。。。

窗体中可 以添加网格线吗？

sxbjzjf110

绿色心情小天使 发表于 2024-5-19 17:16
窗体中可 以添加网格线吗？

不行，要添加网格线，就要用ListView控件。

shiruiqiang

sql、listview搞得