利用窗体查询数据

XUAN.JIAN

新手上路，求大神帮忙，代码是从论坛里抄别人的，按钮在存放数据的工作表能正常查询，按钮在其它工作表就不可以了，求大神们帮忙修改一下

3190496160

Private Sub CommandButton1_Click()
On Error Resume Next
If OptionButton1 = True Then lh = 2  '列号
If OptionButton2 = True Then lh = 6
If OptionButton3 = True Then lh = 7
If lh = "" Then MsgBox "请选择查询类型！": GoTo 100
r = Sheets("数据").Cells(Rows.Count, 1).End(xlUp).Row
If r < 2 Then MsgBox "数据工作表为空！": Exit Sub
arr = Sheets("数据").Range("a1:i" & r)
ReDim arr1(1 To UBound(arr), 1 To 9)
ReDim arr1(1 To UBound(arr), 1 To 9)
arr1(1, 1) = "日期"
arr1(1, 2) = "客户姓名"
arr1(1, 3) = "客户电话"
arr1(1, 4) = "商品名称"
arr1(1, 5) = "配置"
arr1(1, 6) = "车架号码"

arr1(1, 7) = "电机号码"
arr1(1, 8) = "业务员"
arr1(1, 9) = "附加说明"


t = UCase(TextBox1)
For i = 2 To UBound(arr)
    If InStr(UCase(arr(i, lh)), UCase(TextBox1)) Then
    n = n + 1
    For x = 1 To 9
        arr1(n + 1, x) = arr(i, x)
    Next x
    End If
Next i
With ListBox1
.ColumnCount = 9
.TextAlign = 2
.List = arr1
.ColumnWidths = "30;80;60;60;100;60;60;6;60"
End With
If n = "" Then
MsgBox "无该用户,请查正后输入！"
Else

Me.ListBox1.Visible = True
End If
100:
End Sub

3190496160

代码漏洞百出
查询1111.rar (28.27 KB, 下载次数: 46)

2021-11-14 13:09 上传

点击文件名下载附件

XUAN.JIAN

3190496160 发表于 2021-11-14 13:09
代码漏洞百出

非常感谢