[已解决]listview，查询条件筛选

wj983

一个查询的窗体，一个有数据的工作表。
窗体上有2个日期控件，工作表中第一列是文本的日期（年月日）。
第一个条件是筛选第一列日期在两个日期控件之间的行。

后面还有几个条件的文本框。
想要的效果是如果条件文本框空白的话，就不考虑这个筛选条件，这个文本框有数据才考虑这个筛选条件。
我直接用=，就识别空白的才筛选出来，有数据的就筛选不出来了，不懂区分。

然后就是如果最后一列有“作废”两字，本行字体颜色为红色。
listview最后加个金额合计。

做点东西好复杂。。。。。。问的有点多了，呵呵，谢谢了~

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-2-18 20:18

(, 下载次数: 221)

上传

点击文件名下载附件
小数位的情况修正了。

跳转到最佳答案楼层

hwc2ycy

listview的也没那么难的，校长视频有一集就讲了这个。

hwc2ycy

留个记号，晚上再来写。

wj983

校长的课都听过，昨天特地把59集listview控件又听了一遍，不会举一反三啊，还是做不出来

hwc2ycy

制表的坏习惯，在你的表里，都快齐了。

hwc2ycy

1. Private Sub 查询_Click()
   
2.     ListView1.ListItems.Clear
   
3.     ListView1.ColumnHeaders.Clear
   
4. 
   
5.     With Sheets("明细")
   
6.         Dim i, 合计金额C, j&
   
7.         Dim itm As ListItem, list
   
8.         ListView1.ColumnHeaders.Add 1, "riqi", "日期", 80
   
9.         ListView1.ColumnHeaders.Add 2, "bianhao", "编号", 55, lvwColumnCenter
   
10.         ListView1.ColumnHeaders.Add 3, "danwei", "单位", 150, lvwColumnCenter
    
11.         ListView1.ColumnHeaders.Add 4, "zhaiyao", "摘要", 100, lvwColumnCenter
    
12.         ListView1.ColumnHeaders.Add 5, "shoukuanfangshi", "收款方式", 60, lvwColumnCenter
    
13.         ListView1.ColumnHeaders.Add 6, "jine", "金额", 75, lvwColumnRight
    
14.         ListView1.ColumnHeaders.Add 7, "beizhu", "备注", 100, lvwColumnCenter
    
15.         ListView1.ColumnHeaders.Add 8, "zuofei", "作废", 40, lvwColumnCenter
    
16. 
    
17.         ListView1.View = lvwReport
    
18.         ListView1.Gridlines = True
    
19.         For i = 1 To Sheets("明细").Cells(65536, 1).End(xlUp).Row
    
20.             'If Sheets("明细").Cells(i, 1) >= 起始时间 And Sheets("明细").Cells(i, 1) <= 结束时间 Then
    
21.             '单位C.Text = "" Then
    
22.             'ElseIf Sheets("明细").Cells(i, 3) = 单位C.Text Then
    
23. 
    
24.             Set itm = ListView1.ListItems.Add()
    
25.             With itm
    
26. 
    
27. 
    
28.                 .Text = Sheets("明细").Cells(i, 1)
    
29.                 .SubItems(1) = Sheets("明细").Cells(i, 2)
    
30.                 .SubItems(2) = Sheets("明细").Cells(i, 3)
    
31.                 .SubItems(3) = Sheets("明细").Cells(i, 4)
    
32.                 .SubItems(4) = Sheets("明细").Cells(i, 5)
    
33.                 .SubItems(5) = Format(Sheets("明细").Cells(i, 6), "#,##0.00")
    
34.                 .SubItems(6) = Sheets("明细").Cells(i, 7)
    
35.                 .SubItems(7) = Sheets("明细").Cells(i, 8)
    
36.                 If .SubItems(7) = "作废" Then
    
37.                     .ForeColor = vbRed
    
38.                     For j = 1 To .ListSubItems.Count
    
39.                         .ListSubItems(j).ForeColor = vbRed
    
40.                     Next
    
41.                 End If
    
42.                 合计金额C = 合计金额C + Val(Sheets("明细").Cells(i, 6))
    
43.             End With
    
44.             'End If
    
45.         Next i
    
46.         Set itm = ListView1.ListItems.Add()
    
47.         With itm
    
48.             .Text = "合计金额："
    
49.             .ForeColor = vbRed
    
50.             .SubItems(2) = Format(合计金额C, "#,##0.00")
    
51.             .ListSubItems(2).ForeColor = vbRed
    
52.         End With
    
53.     End With
    
54. 
    
55. End Sub

复制代码

红字显示方式。

wj983

谢谢哥了~

不过合计金额取出来的数字不对啊

那些个查询条件咋弄呀~

dasly123

      好深奥。。。。

wj983

是不是因为我的金额是有千分符的文本格式，所以合计出来的金额不正确了？！~

hwc2ycy

查询.rar (21.16 KB, 下载次数: 496)

2013-2-18 20:09 上传

点击文件名下载附件