Frm_Riqi窗体, 加入listview后失效

cmo9020

test.rar (198.12 KB, 下载次数: 25)

2022-12-28 20:00 上传

点击文件名下载附件

导师晚上好....有个严重问题
自己研究改来改去...
1.ListView1搜寻后多出一笔标题显示...请问要改那里？
2.导出数据到sheet2,是反黄色部份..为什么导出后是编号总数....?

3.里面有一个Frm_Riqi窗体, 在加入listview后它就失效
请问要如何唤醒？
麻烦请导师们指导一下,谢谢

3190496160

一个很简单的不定条件个数查询问题，没有必要搞得如你这般复杂的吧

xdychina1

arr = Sheets("Sheet1").Range("c2:o" & r)   ’把c1改为c2

cmo9020

xdychina1 发表于 2022-12-28 22:08
arr = Sheets("Sheet1").Range("c2:o" & r)   ’把c1改为c2

导师晚上好....我知道改成c2
可是导出SHEET2会变成没标题,思索很久...

cmo9020

3190496160 发表于 2022-12-28 21:07
一个很简单的不定条件个数查询问题，没有必要搞得如你这般复杂的吧

导师晚上好....我逻辑有问题比较笨...哈哈

3190496160

Private Sub CommandButton3_Click()
    Dim arr, brr, t, i&, j&, r&, u&
    Dim rr()
    ReDim rr(1 To 4, 1 To 3)
    If Trim(TextBox6.Text) <> "" Then
        n = n + 1
        rr(n, 1) = TextBox6.Text
        rr(n, 2) = 4
    End If
    If Trim(TextBox5.Text) <> "" Then
        n = n + 1
        rr(n, 1) = TextBox5.Text
        rr(n, 2) = 8
    End If
    If Trim(TextBox7.Text) <> "" Then
        nn = nn + 1
        ks = CDate(TextBox7.Text)
    End If
    If Trim(TextBox8.Text) <> "" Then
        nn = nn + 1
        js = CDate(TextBox8.Text)
    End If
    If n = "" And nn = "" Then MsgBox "请至少输入一个查询条件！": Exit Sub
    With Sheets("Sheet1")
        r = .Cells(Rows.Count, 1).End(xlUp).Row
        arr = .Range("a1:o" & r)
    End With
    ReDim brr(1 To UBound(arr), 1 To 5)
    For i = 2 To UBound(arr)
        sl = 0: m = 0
        For s = 1 To n
            mc = rr(s, 1)
            lh = rr(s, 2)
            If Trim(arr(i, lh)) = Trim(mc) Then
                m = m + 1
            End If
        Next s
        If m = n Then
            If nn = "" Then
                k = k + 1
                brr(k, 1) = arr(i, 3)
                brr(k, 2) = arr(i, 4)
                brr(k, 3) = arr(i, 8)
                brr(k, 4) = arr(i, 11)
                brr(k, 5) = arr(i, 13)
            ElseIf nn <> "" Then
                If Trim(arr(i, 3)) <> "" Then
                    If IsDate(arr(i, 3)) Then
                        If nn = 1 Then
                            If arr(i, 3) >= ks Then
                                k = k + 1
                                brr(k, 1) = arr(i, 3)
                                brr(k, 2) = arr(i, 4)
                                brr(k, 3) = arr(i, 8)
                                brr(k, 4) = arr(i, 11)
                                brr(k, 5) = arr(i, 13)
                            End If
                        ElseIf nn = 2 Then
                            If arr(i, 3) >= ks And arr(i, 3) <= js Then
                                k = k + 1
                                brr(k, 1) = arr(i, 3)
                                brr(k, 2) = arr(i, 4)
                                brr(k, 3) = arr(i, 8)
                                brr(k, 4) = arr(i, 11)
                                brr(k, 5) = arr(i, 13)
                            End If
                        End If
                    End If
                End If
            End If
        End If
    Next i
    If k = "" Then MsgBox "没有符合条件的数据！": Exit Sub
    mr = Array(3, 4, 8, 11, 13)
    With ListView1
        .ListItems.Clear
        .View = lvwReport
        .FullRowSelect = True
        .Gridlines = True
        For i = 1 To k
            Set t = .ListItems.Add(, , brr(i, 1))
            For j = 2 To UBound(brr, 2)
                t.ListSubItems.Add , , brr(i, j)
            Next j
        Next i
    End With
End Sub

3190496160

参考
test.rar (279.9 KB, 下载次数: 19)

2022-12-29 12:54 上传

点击文件名下载附件

cmo9020

3190496160 发表于 2022-12-29 12:54
参考

谢谢导师的帮助,很感谢,在来看看有什么不一样,谢谢