自己解决:
- Private Sub TextBox1_Change()
- On Error Resume Next
- Dim h, c, i, j, xr, cr, lw
- ListBox1.ColumnWidths = cw
- cr = Split(cw, ",")
- ti = Array("物料编码", "物料名称", "长度/高度", "颜色", "辅助数量", "辅助单位", "计量单位", "数量", "纱网/材质", "规格说明")
- With ListBox1
- .Clear
- h = 0
- If tc = 5 Then
- .AddItem
- For c = 0 To 9
- .List(h, c) = ti(c)
- Next
- ReDim xr(0 To 9)
- For i = 1 To UBound(xrr)
- If xrr(i, 2) Like "*" & UCase(TextBox1.Text) & "*" Or xrr(i, 3) Like "*" & UCase(TextBox1.Text) & "*" Or xrr(i, 6) Like "*" & UCase(TextBox1.Text) & "*" Then ''ListBox1.AddItem xrr(i, 1)
- .AddItem
- h = h + 1
- .List(h, 0) = xrr(i, 2): xr(0) = xr(0) & xrr(i, 2)
- .List(h, 1) = xrr(i, 3): xr(1) = xr(1) & xrr(i, 3)
- .List(h, 2) = xrr(i, 4): xr(2) = xr(2) & xrr(i, 4)
- .List(h, 3) = xrr(i, 6): xr(3) = xr(3) & xrr(i, 6)
- .List(h, 4) = xrr(i, 8): xr(4) = xr(4) & xrr(i, 8)
- .List(h, 5) = xrr(i, 9): xr(5) = xr(5) & xrr(i, 9)
- .List(h, 6) = xrr(i, 14): xr(6) = xr(6) & xrr(i, 14)
- .List(h, 7) = xrr(i, 15): xr(7) = xr(7) & xrr(i, 15)
- .List(h, 8) = xrr(i, 7): xr(8) = xr(8) & xrr(i, 7)
- .List(h, 9) = xrr(i, 10): xr(9) = xr(9) & xrr(i, 10)
- End If
- Next
- For j = 0 To 9
- If xr(j) = "" Then
- cr(j) = "0"
- End If
- Next
- lw = Join(cr, ",")
- ListBox1.ColumnWidths = lw
- End If
- End With
- End Sub
复制代码
|